Hogy kell megírni ezt a pascal programot? (a legegyszerűbb módon) Kétdimenzióstömb rendszerezése, max 5x5-ös, kiiratással.

[link]

program Sort2DArray;

const

. . m = 5; // rows

. . n = 5; // columns

var

. . A: array[0..m-1, 0..n-1] of Longint;

. . x, y, i, j: Longint;

. . t: Longint;

begin

. . (* Inputting the 2D Array *)

. . for i:=0 to m-1 do

. . begin

. . . . for j:=0 to n-1 do

. . . . begin

. . . . . . Write('Enter the elements: ');

. . . . . . Readln(A[i][j]);

. . . . end;

. . end;

. . (* Printing the original 2D Array *)

. . Writeln('The original array:');

. . for i:=0 to m-1 do

. . begin

. . . . for j:=0 to n-1 do

. . . . begin

. . . . . . Write(A[i][j],#9);

. . . . end;

. . . . Writeln;

. . end;

. . (* Sorting the 2D Array *)

. . for x:=0 to m-1 do

. . begin

. . . . for y:=0 to n-1 do

. . . . begin

. . . . . . for i:=0 to m-1 do

. . . . . . begin

. . . . . . . . for j:=0 to n-1 do

. . . . . . . . begin

. . . . . . . . . . if (A[i][j]>A[x][y]) then

. . . . . . . . . . begin

. . . . . . . . . . . . t:=A[x][y];

. . . . . . . . . . . . A[x][y]:=A[i][j];

. . . . . . . . . . . . A[i][j]:=t;

. . . . . . . . . . end;

. . . . . . . . end;

. . . . . . end;

. . . . end;

. . end;

. . (* Printing the sorted 2D Array *)

. . Writeln('The Sorted Array:');

. . for i:=0 to m-1 do

. . begin

. . . . for j:=0 to n-1 do

. . . . begin

. . . . . . Write(A[i][j],#9);

. . . . end;

. . . . Writeln;

. . end;

. . Readln;

end.

Csuda érzés lehet lepontozni gondolkodás helyett. Minthogy én nem viszonozhatom, kénytelen voltam az utóbbinál maradni.

[link]

Bocs, hogy nem ragadtam le az 5×5-ös korlátnál.