Question

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

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.