Моё решение
uses crt;
const n=5; m=4;
var a:array[1..n,1..n] of integer;
b:array[1..m,1..m] of integer;
procedure create;
...
end;
procedure output;
...
end;
procedure sort;
var i, j, T: integer;
count, stage: integer;
begin
for stage := 1 to n - 2 do
begin
count := n - stage;
For i := 1 To count Do
For j := count DownTo i+1 Do
begin
if a[pred(j), pred(j) + stage]>a[j, j + stage] then
begin
T := a[pred(j), pred(j) + stage];
a[pred(j), pred(j) + stage] := a[j, j + stage];
a[j, j + stage] := T;
end;
if a[pred(j) + stage, pred(j)] < a[j + stage, j] then
begin
T := a[pred(j) + stage, pred(j)];
a[pred(j) + stage, pred(j)] := a[j + stage, j];
a[j + stage, j] := T;
end;
end;
end;
end;
begin
...
sort;
...
end.
Проблема в том, что в процедуре sort сортируется только один массив a[]
Как написать вызов и саму процедуру, чтоб передать её параметры массива(имя и размер), чтоб ей одной можно было бы сортировать оба массива.