Program zada4a2; uses crt; const Max=100; Type vect=array[1..Max] of integer; matr=array[1..Max] of vect; var A:matr; n,m,i,j:integer; s,p:integer; Procedure Vvod(var A:matr); var i,j:integer; begin writeln('vvedite 4islo'); readln(n); if (n < 1) then n := 1 else if (n > Max) then n := Max; writeln('vvedite 4islo'); readln(m); if (m < 1) then m := 1 else if (m > Max) then m := Max; for i:=1 to n do for j:=1 to m do Readln(A[j]); end; Procedure poisk_maximuma(var A:matr); var f:integer; s:integer; begin f:=1; Repeat for i:=1 to n do if s<a[f][i] then s:=a[f][i]; write (s); f:=f+1; s:=0; until f=n+1; end; [i]Procedure poisk_minimuma(var A:matr); var f:integer; p:integer; begin f:=1; Repeat for i:=1 to n do if p>a[f][i] then p:=a[f][i]; write (p); f:=f+1; p:=10000; until f=n+1; end; begin Vvod(A); writeln('масимальные элементы в строчка'); poisk_maximuma(A); writeln(''); writeln('минимальные элементы в строчка'); poisk_minimuma(A); end. |