PASCALВ одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.
170
ОТВЕТЫ
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.
31
Отв. дан
Magor
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Kiribandis
X(2-x)²(x-3)³< = 0
Решите с объяснением, пожалуйста ...
2018-09-23 00:00:00
Егор
Подскажите как с задачей 131.если можно с подробными пояснениями ...
2018-09-23 00:00:00
Doril
Ответьте на вопросы: Как, используя натуральный ряд, можно определить, ...
2018-09-23 00:00:00
Gholbinadar
Решите уравнение: x-1=1/1-3/5, ...
2018-09-23 00:00:00