Var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0; sumb:=0; for i:= 1 to 10 do if f[i] mod 2 = 0 then suma:=suma+f[i]; else sumb:sumb+f[i]; writeln('Сумма четных: ',suma); writeln('Сумма нечетных: ',sumb); end.
var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0; sumb:=0; for i:= 1 to 8 do if f[i] mod 2 = 0 then k:=k+1; else sumb:sumb+f[i]; writeln('Количество четных: ',k); writeln('Сумма нечетных: ',sumb); end.