Question

Помогите пожалуйса с задачей!

Заполнить массив из 20 элементов случайными числами найти количество элементов кратных 6.

Answer 1

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.