{Programma atrod elementu,kursh ir mazakais rinda, bet lielakas kolonna} uses crt; const nn=10; mm=10; type matrix=array[1..nn,1..mm] of integer; var a:matrix; i,j,k,l,n,m,max,min,minj,sk:integer; paz:boolean; procedure readmatrix( var a: matrix; var n, m :integer); var i,j : integer; begin repeat write('Ievadi rindu skaitu: ');readln(n) until (n>0) and (n<=nn); repeat write('Ievadi kolonnu skaitu: ');readln(m) until (m>0) and (m<=mm); for i:=1 to n do begin for j:=1 to m do begin writeln('A[',i,j,']= '); readln(a[i,j]) end end end; procedure printmatrix(a :matrix; n,m: integer); var i,j,k: integer; begin for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6); writeln; end end; begin clrscr; readmatrix(a,n,m); writeln; printmatrix(a,n,m); sk:=0; for i:=1 to n do begin min:=a[i,1]; minj:=1; for j:=2 to m do if a[i,j]a[i,minj] then paz:=false; if paz then begin writeln(i,'. rinda un ',minj,'. kolonna'); sk:=sk+1; end; end; if sk=0 then writeln('Nav atrasti elementi ar uzdoto ipasibu!'); readkey end.