Задание №3


var i,j,n,m: integer;     
a: array [1..1000, 1..1000] of integer;   
polzh, otric: integer;
begin
randomize;
Readln(n,m);
for i:=1 to n do 
for j:=1 to m do 
Readln(a[i,j]);
polzh:=0;
otric:=0;
for i:=1 to n do 
for j:=1 to m do 
if a[i,j]>=0 then 
polzh:=polzh+1 
else 
otric:=otric+1;
if polzh>otric then 
Writeln('Положительных чисел больше') 
else 
if polzh<otric then 
Writeln('Отрицательных чисел больше') 
else 
Writeln('Положительных и отрицательных чисел поровну');
end.