program ZADACHA1;
var
a:array [1..20] of integer;
I : byte;
summ1, summ2:integer;
begin
  Randomize;
  summ1:=0;
  summ2:=0;
For i:=1 to 20 do
  Begin
    a[i]:=(-10)+random(5-(-10)+1);
    Write(a[i],’ ‘);
  end;
for i:= 1 to 10 do
  begin
    summ1 := a[i] + summ1;
  end;
for i:=11 to 20 do
  begin
    summ2 := a[i] + summ2;
   end;
if summ1 >summ2 then
  writeln(summ1)
else
  writeln(summ2);
end.