uses crt;
const n=4;
type arr=array[1..n] of integer;
var a,b:arr;
i,j,p,sm:integer;
procedure Kol(a,b:arr; var p:integer);
var k1,k2:integer;
begin
k1:=0;
for i:=1 to n do
if a[i]>0 then
inc(k1);
k2:=0;
for i:=1 to n do
if b[i]>0 then
inc(k2);
if k2>=k1 then
p:=2
else
p:=1;
end;
function Sum(a,b:arr; var s,k:integer):integer;
begin
Kol(a,b,k);
if k=1 then
for i:=1 to n do
s:=s+a[i]
else
if k=2 then
for i:=1 to n do
s:=s+b[i];
end;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
a[i]:=random(20)-10;
Write(a[i],' ');
end;
Writeln;
for i:=1 to n do
begin
b[i]:=random(20)-10;
Write(b[i],' ');
end;
Writeln;
Sum(a,b,sm,p);
Writeln('Summa [',p,'] =',sm);
Readln
end.