Pascal в одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.

КУКУ2007 КУКУ2007    2   09.08.2019 02:00    0

Ответы
karinasoskova karinasoskova  04.10.2020 06:19
Program xxx;
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика