Помогите пожалуйса с задачей! Заполнить массив из 20 элементов случайными числами найти количество элементов кратных 6.
Помогите пожалуйса с задачей!
Заполнить массив из 20 элементов случайными числами найти количество элементов кратных 6.
Гость
Ответ(ы) на вопрос:
Гостьprogram fpro;
var a : array[1..20] of integer;
i : integer;
s : integer;
begin
s := 0;
randomize;
for i :=1 to 20 do
begin
a[i] := random(1,100);
if (a[i] mod 6) = 0 then s := s+1;
end;
writeln('Количество элементов кратных 6: ', s)
end.
Не нашли ответ?
Похожие вопросы