Const m=4; n=6;
var
a:array[1..m,1..n] of integer;
i,j,max,jmax,min,jmin,t:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1]; jmax:=1;
min:=a[1,1]; jmin:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]>max then begin max:=a[i,j]; jmax:=j; end;
if a[i,j] end;
writeln('max = ',max,' jmax = ',jmax);
writeln('min = ',min,' jmin = ',jmin);
for i:=1 to m do
begin
t:=a[i,jmax]; a[i,jmax]:=a[i,jmin]; a[i,jmin]:=t;
end;
writeln('Полученный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
89 80 1 6 3 15
84 2 17 5 89 71
89 68 90 97 75 40
12 30 60 98 75 42
max = 98 jmax = 4
min = 1 jmin = 3
Полученный массив:
89 80 6 1 3 15
84 2 5 17 89 71
89 68 97 90 75 40
12 30 98 60 75 42