Задана матрица размером…

Program Pr1; uses crt; const n=100; m=100; var mas: array[1… n,1… m] of integer; i,j,l,k,v: integer; Beginclrscr; for j: =1 to m dofor i: =1 to n do begin randomize; mas[i,j]: =random (100); end; l: =0; v: =0; for j: =1 to m dofor i: =1 to n do begin k: =1; while k <= m do if k=m then k: =k+1 else begin l: =mas[i,k]+l; k: =k+1; end; if mas[i,j]>l then v: =v+1; l: =0; end; writeln (v); end.