var a:array[1..10] of integer; s,s1:longint; i,n:integer; begin writeln('Skolko elementov'); read(n); s:=0; s1:=0; randomize; for i:=1 to n do begin a[i]:=random(10); end; for i:=1 to n do begin write(a[i]:4); end; writeln; for i:=1 to n do begin begin if (a[i] mod 2=0) then s:=s+a[i] else s1:=s1+a[i]; end; end; writeln('Summa chetnix chisel = ',s); writeln('Summa ne chetnix chisel ',s1); end.