Question

Задание 9 класс. Дан массив.Подсчитать кол-во элементов, которые делятся на пять : 2,0,5,3,15,4,8.

Answer 1

Const A: array [1..7] of integer = (2,0,5,3,15,4,8);
i, kol: integer;
begin
kol:=0;
i:=0;
mas:=7;
for i:=0+1 to mas do begin
if A[i] mod 5 = 0 then
kol:=kol+1;
end;
write( ' количество таких элементов = ' , kol);
writeln();
end.