Преобразовать массив: в каждом столбце поменять местами максимальный и первый элементы

[AFI]

HELP !
Нужно решить на Паскале следующую задачу "Преобразовать массив: в каждом столбце поменять местами максимальный и первый элементы" (Двумерные массивы.)

[Sciv]

Что мешает тебе сделать? Незнание темы, незнание паскаля или лень?

[AFI]

Если я обратился за помощью, то наверное по каким-то обстоятельством не могу сделать? Правда ведь?

Кто может, и кому не так лень, прошу сделайте пожалуйста, это срочно.

[3Doleg]

вот код на обмен между максимальным и последним, переделайте на первый самы..

var n,i,d,j,max: integer;
s:array [1..1000,1..1000] of integer;
Begin
read(n); //кол-во столбцов
 for i:=1 to n do
  for j:=1 to n do
  read(s[j,i]);
max:=1;
                 for i:=1 to n do
                 begin
                  for j:=2 to n do
                  begin
                  if s[i,j]>s[i,max] then max:=j;
                  if j=n then begin d:=s[i,n]; s[i,n]:=s[i,max]; s[i,max]:=d; end;
                  end;
                 end;
            for i:=1 to n do
            begin
            writeln;
             for j:=1 to n do
             write(s[j,i],' ');
            end;
End.

[AFI]

Сообщение от 3Doleg

вот код на обмен между максимальным и последним, переделайте на первый самы..

var n,i,d,j,max: integer;
s:array [1..1000,1..1000] of integer;
Begin
read(n); //кол-во столбцов
 for i:=1 to n do
  for j:=1 to n do
  read(s[j,i]);
max:=1;
                 for i:=1 to n do
                 begin
                  for j:=2 to n do
                  begin
                  if s[i,j]>s[i,max] then max:=j;
                  if j=n then begin d:=s[i,n]; s[i,n]:=s[i,max]; s[i,max]:=d; end;
                  end;
                 end;
            for i:=1 to n do
            begin
            writeln;
             for j:=1 to n do
             write(s[j,i],' ');
            end;
End.

Спасибо большое!

[Sciv]

Если я обратился за помощью

А ты обратился за помощью или хочешь, чтобы за тебя все сделали?

Правда ведь?

Неправда.