В массиве C(7) из целых числе, найти количество элементов четных 3. Pascal ​

Free Pascal

Объяснение:

const

 n=7;

var

 a : array [0..n] of integer;

 i, m : integer;

begin

 randomize;

 m := 0;

 for i:=0 to n-1 do begin

   a[i] := random(100);

   if a[i] mod 3 = 0 then

     inc(m);

   write(a[i], '  ');

 end;

 writeln();

 writeln('Otvet : ', m);

end.