Question

Помогите пожалуйста!!! В заданной последовательности целых чисел определите сумму элементов кратных 10!

Answer 1

var n, i, s, a: integer;

begin

  s:=0;

  writeln('Введите количество чисел');

  readln(n);

  for i:=1 to n do 

    begin

      readln(a);

      if a mod 10=0 then s:=s+a;

    end;

  writeln(s);

end.