const n=12;
var
v:array[1..n] of integer;
i,k1,k2,max,p:integer;
begin
Randomize;
for i:=1 to n do
 begin
 v[i]:=random(51)-25;
 write(v[i]:4);
 end;
writeln;
k1:=0; k2:=0;
max:=v[1];
for i:=1 to n do
 begin
 if v[i]>0 
   then k1:=k1+1
   else if v[i]<0 then k2:=k2+1;
 if v[i]>max then max:=v[i];
 end;
writeln('k1 = ',k1,'  k2 = ',k2,'  max = ',max);
if k1<k2 
 then begin for i:=1 to n do if v[i]<0 then v[i]:=0 end
 else begin
      p:=1;
      for i:=1 to n do if v[i]>max/2 then p:=p*v[i];
      for i:=1 to n do if v[i]<0 then v[i]:=p;
      end;
for i:=1 to n do write(v[i]:4,' ');
writeln;
end.

Пример:
 -18  -2 -23   1  -4   9  11  15 -23 -10  10  19
k1 = 6  k2 = 6  max = 19
31350 31350 31350    1 31350    9   11   15 31350 31350   10   19