Дана матрица размерности…

Uses crt; const N=4; M=6; var a: array [1… n,1… m] of integer; x,y,k: integer; begin for x: =1 to n do begin for y: =1 to m do begin a[x,y]: =random (21) -10; write (a[x,y]: 4); end; writeln; end; for y: =1 to m do begin k: =0; for x: =1 to n do if a[x,y]<0 then inc (k); if k=0 then writeln (y); end; end.