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

Викуляшка Викуляшка    2   11.03.2019 13:30    1

Ответы
mashalin44 mashalin44  24.05.2020 21:19

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.

      

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика