Взаданной последовательности целых чисел определите - вопрос №206031 от kirill1s 23.02.2020 02:30

Question

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

kirill1s · 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.