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

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.

Comments

Можно по русски?

---

Что нужно? Блок-схема? Или что?

---

Программа

---

Ну? А это что по-твоему?