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