Дана задача
Создать массив А(4х6), переставить местами столбцы с min и max суммой.
randomize; {создал массив 4на6 и заполнил}
writeln('Massiv A 4x6');
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(90)+10;
write(a[i,j], ' ');
end;
writeln;
end;
.
.
.
for j:=1 to 6 do {ищу суммы столбцов}
begin
s:=0;
for i:=1 to 4 do
s:=s+a[i,j];
b[s]:=s;
write(b[s], ' ');
end;
.
.
.
for s:=1 to 6 do
{ это промежуточный этап, пытаюсь найти максимальный элемент, а затем
и минимальный, чтобы определить какие столбцы менять, но не работает ...}
begin
max:=1;
if b[s]>max then
end;
c[m]:=max;
write(b[s]);
помогите пожалуйста.