Двумерный массив help

[Time]

Исходные данные:

write('Введите размерность матрицы: ');
readln(n);
write('Введите матрицу: ');
for i := 1 to n do begin
for j := 1 to n do begin
read(a[i,j]); write(' ');
writeln;
end;

Вывод результата:

for i := 1 to n do begin
for j := 1 to n do
write(a[i,j],' ');
writeln;
end;

Вот тебе теперь уже готовая прога, загони код и пользуйся!
Должен работать.

[Imperceptible]

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

[Time]

Ну давай дерзай и не путайся! Удачи!

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

Ты напиши кого ты хоть благодаришь то...

[Imperceptible]

Благодарю всех, кто откликнулся, но особено Time!
Я, честно говоря, не думал что мне так быстро помогут, классный форум а главное люди отзывчивые.

[Imperceptible]

Стоп, ток сейчас заметил что не всё она сортирует.

При вводе матрицы
1 2 3 4
4 7 5 8
9 4 4 4
2 1 2 3
выдаёт
9 2 3 4
4 1 5 8
3 4 7 4
2 1 2 4
Не получается такая сортировка, совсем запутался

[Time]

Я писал на скорою руку, поэтому может где-то допустил ошибку. Я сегодня попозже вечером найду ошибку и напишу тебе.

[Imperceptible]

Хорошо, я сейчас какраз засел...

[AVer]

Вот. Только код заточен под положительные числа. Чтобы этого избежать надо находить еще минимальный элемент.

Const X = 3;

Var A:Array[1..X,1..X] of Integer;

Procedure Zapoln;
Var I,J:Integer;
Begin
For I:=1 to X Do
For J:=1 to X Do
A[I,J]:=Random(10);
End;

Procedure Show;
Var I,J:Integer;
Begin
 For I:=1 to X Do
 Begin
 For J:=1 to X Do
 Write(A[I,J],' ');
 WriteLn;
 End;
End;

Procedure Dvig;
Var Max, IMax, I,J,N,M,Z,W:Integer;
Begin
Max:=0;
IMax:=0;
For I:=1 To X Do
For J:=1 To X Do
If A[I,J] > Max Then
Begin
Max:=A[I,J];
N:=I;
M:=J;
End;
W:=A[1,1];
A[1,1]:=A[N,M];
A[N,M]:=W;
 For Z:=2 to X Do
 Begin
  For I:=1 To X Do
  For J:=1 to X Do
  If (A[I,J] < Max) and (A[I,J] > Imax) Then
   Begin
   IMax:=A[I,J];
   N:=I;
   M:=J;
   End;
  W:=A[Z,Z];
  A[Z,Z]:=A[N,M];
  A[N,M]:=W;
  Max:=IMax;
  IMax:=0;
 End;
End;

Begin
Randomize;
Zapoln;
Show;
WriteLn;
Dvig;
Show;
ReadLn;
End.

[Imperceptible]

Спасибо работает! А я сделал чтобы массив из файла читался, надеюсь так тоже можно.

[Time]

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

for k := 1 to n do begin
maxi := k;
maxj := k;
max := a[k,k];
for i := 1 to n do
for j := 1 to n do
If (a[i,j] > max) and (i <> j) then
begin
maxi := i;
maxj := j;
max := a[i,j];
end;
for i := k to n do
if a[i,i] > max then
begin
maxi := i;
maxj := i;
max := a[i,i];
end;
a[maxi,maxj] := a[k,k]; a[k,k] := max;
end;

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