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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.