program uzd3;
uses crt;
const n=2;m=10;
var mas:array[1..n,1..m]of integer;
i,j,max,min,nulle:integer;
begin
randomize;
clrscr;
min:=0;
max:=0;
nulle:=0;
for i:=1 to n do begin
    for j:=1 to n do begin
    mas[i,j]:=random(20)-10;
    if mas[i,j]>0 then max:=max+1
       else
    if mas[i,j]<0 then min:=min+1
    else nulle:=nulle+1;
    write(mas[i,j],'I');
end;
writeln;
writeln('lielaki par 0==>',max);
writeln('mezakie par 0==>',min);
writeln('vienadi ar 0==>',nulle);
end;end.