Question

Дан одномерный массив элементы которого могут быть числа от одного до 1000, посчитать количество элементов который заканчивается на семь

Answer 1

Var
a, n, k: integer;
begin
k := 0;
readln(n);
for t := 1 to n do
begin
readln(a);
if a mod 10 = 7 then k := k + 1;
end;
writeln(k);
end.