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

Question

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

Comments

программа должна проверять корректность ввода данных пользователем?

---

вроде нет

Answer 1

var n, a, s : integer;

begin

   write('количество чисел: ');

   readln(n);

   write('ввести числа: ');

   for var i := 1 to n  do begin

       read(a);

       if a mod 10 = 4 then s+= a

   end;

   writeln;

   writeln(s);

end.