Дана матрица размера M ´ N. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы. На как менять элементы понимаю, а как записывать все элементы столбца куда то - не пойму

ответ

2,0/5

2

yasadc

1)uses crt;

const m=5;

n=5;

var a:array[1..m,1..n] of integer;

b:array[1..m] of integer;

i,max,min,j,k,p:integer;

begin

randomize;

for i:=1 to m do

for j:=1 to n do

a[i,j]:=random(20);

min:=20;

max:=0;

for i:=1 to m do

begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

end;

writeln;

k:=1;

repeat

for i:=k to k do

for j:=1 to n do

begin

if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;

end;

inc(k);

min:=20;

until k>n;

for p:=1 to m do

if (b[p]>max) then max:=b[p];

writeln(max);

end.

Объяснение: