Процедуры,масивы

[Draips]

Составить процедуру перестановки максимального и минимального элементов массива и применить ее для обработки двух двумерных массивов.

[Филантроп]

 i1:=1;
 i2:=1;
 j1:=1;
 j2:=1;
 for i:=1 to n do
 for j:=1 to m do begin
 if a[i,j]>a[i1,j1] then begin i1:=i;j1:=j;end;
 if a[i,j]<a[i2,j2] then begin i2:=i;j2:=j;end;
 end;
 t:=a[i1,j1];
 a[i1,j1]:=a[i2,j2];
 a[i2,j2]:=t;