Предмет: Информатика,
автор: жора924
PASCAL
В одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: mambetkulovaajdana
Предмет: Геометрия,
автор: simald8484
Предмет: Алгебра,
автор: bdbdbfbfbdhrhrhrh545
Предмет: Биология,
автор: Dddddddddd154
Предмет: Экономика,
автор: singervoka