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.