Предмет: Информатика,
автор: slepczowaalina
Помогите переделать программу, так чтобы программа выводила сумму чётных чисел. progarm n_2; var s, i:integer; a:array [1..10] of integer; begin s:=0; for i:=1 to 10 do a[i]:=random(50); for i:=1 to 10 do write (a[i],' '); for i:=1 to 10 do s:=s+a[i]; writeln('s=', s); end.
Ответы
Автор ответа:
0
после последнего цикла for пишем
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;
Автор ответа:
0
напишите полностью программу, т.е. как вы её переделали
Автор ответа:
0
огромное спасибо
Похожие вопросы
Предмет: Русский язык,
автор: araara125600
Предмет: География,
автор: pvikulyap
Предмет: Алгебра,
автор: danik19022008
Предмет: Математика,
автор: алтана2
Предмет: Математика,
автор: Аян22