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);
writeln('vvedite 4islo');
readln(m);
for i:=1 to n do
for j:=1 to m do
Readln(A[i][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;
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.
|
