Помогите пожалуйста!!! В заданной последовательности целых чисел ...
Помогите пожалуйста!!! В заданной последовательности целых чисел определите сумму элементов кратных 10!
Есть ответ
18.12.2022
97
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022