Взаданной последовательности целых чисел определите - вопрос №10206256 от diana9996 28.05.2021 23:09

Question

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

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