Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В массиве из 70 целых чисел найти количество элементов, кратных 3

Ответ оставил Гость

Const n = 70;
var
a: array[1..n] of integer;
i, k: integer;
begin
for i:=1 to n do readln(a[i]);
k := 0;
for i:= 1 to n do
  if a[i] mod 3 = 0 then
     inc(k);
writeln(k);
end.