program pr5;
var
ma,dop,p1,p2,max,k,i,n,m,t,j:integer;
a:array [1..25,1..25] of integer;
begin
writeln('vvedite massiv');
writeln('vvedite chislo strok');
readln(n);
writeln('vvedite chislo stolbcov');
readln(m);
for k:=1 to n do
begin
for t:=1 to m do
begin
write(k,t,'-element->');
read(a[k,t]);
end;
end;
for k:=1 to n do
begin
for t:=1 to m do
begin
if a[k,t]>a[k,t+1] then
begin
dop:=a[k,t];
a[k,t]:=a[k,t+1];
a[k,t+1]:=dop;
ma:=a[k,t+1];
end;
end;
p1:=k;
writeln(ma,' na pozicii ', p1,',',p2);
end;
writeln('gotovo');
readln;
end. |
