Объяснение:
Что тут объяснять, просто считаем количество таких элементов. count-наш счётчик.
var a[20]: array of integer; count, x, i: integer;
begin
count := 0;
for i :=0 to 19 do begin
readln(a[i]);
if a[i] mod 5 = 0 then count := count + 1;
end;
write(count);
end.
Объяснение:
Что тут объяснять, просто считаем количество таких элементов. count-наш счётчик.
var a[20]: array of integer; count, x, i: integer;
begin
count := 0;
for i :=0 to 19 do begin
readln(a[i]);
if a[i] mod 5 = 0 then count := count + 1;
end;
write(count);
end.