Задана матрица размером NxM. Определить k – количество “особых” ...

Motes

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 kl then v:=v+1; l:=0; end;writeln(v);end.