Требуется решение задачи

[insex]

Всем доброго времени суток, дамы и господа! Требуется решить задачу на Pascal сегодня до 00:00. Прошу оказать помощь.
Условие задачи:
"Напишите программу, которая меняет местами столбцы матрицы, содержащие наибольший и наименьший элементы."

[Leshii]

Insex, за срочность обычно платят Я бы вас даже во фриланс направил, но предварительно спрошу, а что вы сделали?

[insex]

В данном случае просто расчитываю на отзывчивость людей, вдруг есть добряки. В данной задаче написал программ, вар и бегин
С паскалем мало знаком, на С юзал просто, а сейчас требуется именно паскальный код.

[Sciv]

А 00:00 - это в каком часовом поясе? а то у меня как раз 00:00...
И еще - написали бы на С, раз знакомы, Вам бы ее тут быстрее в паскаль транслировали, чем с нуля писали.

[insex]

2 часа еще есть, я поэтому и обратился на форум, так как времени катастрофически не хватает писать самому, много работы у меня.

[Leshii]

Ну тогда поступим так:

var
A: array [ 1 .. 6, 1 .. 6 ] of integer;
i, j: integer;
min, max, min_j, max_j, buffer: integer;
begin
randomize;

write('Enter n(strings):');readln(n);
write('Enter m(columns):');readln(m);

for i:=1 to n do begin
 for j:=1 to m do begin
      a[i,j]:=random(10)+1;
 end;
end;

max:=A[1,1];max_j:=1;
min:=A[1,1];min_j:=1;
for i:=1 to n do begin
 for j:=1 to n do  begin
   if A[i,j] > max then begin
      max:=A[i,j];
      max_j:=j;
   end;
   if A[i,j] < min then begin 
      min:=A[i,j];
      min_j:=j;
   end;
 end;
end;

for i:=1 to n do begin
      buffer:=a[i,max_j];
      a[i,max_j]:=a[i,min_j];
      a[i,min_j]:=buffer;
end;
end;

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

[insex]

Можете обругать меня тупым, но вывод не могу доделать
Есть настроение у кого-нибудь вывод мне начиркать?

[Serge_Bliznykov]

Leshii, при написании кода перестановки столбцов не Вас смутило, что переменная J нигде внутри цикла у Вас не используется?!! :-D

разумеется, цикл просто лишний!
достаточно так:

if max_j<>min_j then
  for i:=1 to n do 
  begin
      buffer:=a[i,max_j];
      a[i,max_j]:=a[i,min_j];
      a[i,min_j]:=buffer;
  end;

[insex]

Друзья мои, остался час с небольшим, неужели никто мне так и не поможет справиться с задачей до конца.

[Poma][a]

Любезный друг, будьте хоть капельку самостоятельным, найдите ввод\вывод самостоятельно.