Question

Дана последовательность из N натуральных чисел. Определить сумму чисел этой последовательности, оканчивающихся на 5.

Answer 1

program z1;

var
  N, S, k, a: integer;

begin
  Write('Введите N:');
  readln(N);
  S := 0;
  k := 1;
  while k <= N do
  begin
    write('Введите a',k,': ');
    readln(a);
    if a mod 10 = 5 then S := S + a;
    k := k + 1;
  end;
  writeln('Сумма чисел, оканчивающихся на 5 = ', S);
end.