{Izveidot masivu (4x6) un aizpildit ar skaitliem. Noskaidrot un izvadit uz ekrana informaciju, vai visas masiva rinda skaitli ir dilstosha seciba.} uses crt; const nn=4; {rindu skaits} mm=6; {kolonnu skaits} type elem =integer; matrix = array [1..nn, 1..mm] of elem; var n,m,i,j : integer; a:matrix; 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: integer; begin for i:=1 to n do for j:=1 to m do begin write(a[i,j]:6); if j=m then begin writeln; for j:=1 to m do begin end; writeln end end end; function checkrow(const a: matrix; row: integer): boolean; var i: integer; begin i:=1; while (im); end; begin clrscr; readmatrix(a,n,m); writeln; writeln('Matrica:'); printmatrix(a,n,m); writeln; writeln(checkmatrix(a)); readkey; end.