Помогите переделать программу, так чтобы программа выводила сумму чётных чисел. 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.

Question

Антон

27 ноября, 12:00

+2

Ответы (1)

Знаете ответ на вопрос?

Германик · Answer 1

После последнего цикла for пишем

for i:=1 to 10 do

begin

if a[i] mod 2 = 0 then

s:=s+a[i];

end;