Напишите программу, которая в последовательности натуральных чисел определяет сумму...

Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - сумму чисел, оканчивающихся на 4.

Answer 1

На паскале

var

i, s, n, z: integer;

begin

s:=0;

readln (n);

for i:= 1 to n do

begin

Readln (z);

if z mod 10 = 4 then s:= s+z;

end;

writeln (s);

end.