Question

"Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2. Программа должна вывести одно число – сумму чисел, оканчивающееся на 2. "

Answer 1

program Test;
var i, amountOfNumbers, sum, number: integer;
begin 
   write('Введите количество чисел: '); 
   readln(amountOfNumbers);   

   writeln('Введите числа:'); 
   sum := 0;

   for i := 0 to amountOfNumbers - 1 do 
   begin   
      read(number);       

      if number mod 10 = 2 then
         sum := sum + number; 
   end;   

   writeln('Сумма: ', sum);
end.