Предмет: Информатика,
автор: gorbunovsanekg
найти сумму элементов кратных 5 в одновременном массиве
Ответы
Автор ответа:
0
Автор ответа:
0
program zadacia;
const n=10;
var a :array [1..n] of integer;
s,i:integer;
begin
writeln('vvedite massiv=');
for i :=1 to n do
readln(a[i]);
s:=0;
for i:= 1 to n do
if a[i] mod 5 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
const n=10;
var a :array [1..n] of integer;
s,i:integer;
begin
writeln('vvedite massiv=');
for i :=1 to n do
readln(a[i]);
s:=0;
for i:= 1 to n do
if a[i] mod 5 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
Приложения:
Автор ответа:
0
проверила ...всё работает
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Информатика,
автор: sabinarasimova950
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: neyzvestno