Не могу понять как создать массив. Опции

[Shaman]

Дана задача.

Создать массив, что содержит номера рядов, упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел.

Вопрос.

Как это его так создать? не могу понять даже смысл.

Подскажите пожалуйста. Заранее спосибо.

[GLuk]

Ну, судя по всему, мы имеем 2х-мерный массив без разницы чем заполненный, но во-всяком случае уже "упорядоваченный" очень может быть вот такой: array[1..9,1..2] of TypeVariable;
Но при всем моем огромном желании, я не смог осознать, что такое:

упорядоваченных при повышении парных элементов в массиве К(9;9) целых чисел. "

Условие в действительности так и звучит??!
Или может ошибся где в формулировке?

[shaman]

Переводил с Украинского, а написано так, "упорядкованих за зростанням парних елементів у масиві K(9,9) цілих чисел".

Я понял надо делать вроде так, сортировать не числа, а строки в которых содержутся парные числа и сортировать получается по возврастанию!

Эта моя первая прога, и как это т.е. сортировку составить я не знаю.

[GLuk]

Сортировка пузырьком в общем случае осуществляется так:

Код

Program SortData_;
Uses
   Crt;
Const
    N = 10;
Var
  X:array[1..N] of Word;
  i:Integer;
Procedure SortData;
{‘®авЁа®ўЄ  ¬ ббЁў  Ї® гЎлў ­Ёо}
var
  b,t,j:Integer;
  Temp:Word;
begin
    b:=N;
    While b<>0 do
    begin
         t:=0;
         For j:=1 to b-1 do
             {‡ ¬Ґ­пп §­ Є "<" ­  ">" Їа®Ёб室Ёв б®авЁа®ўЄ  Ї® ў®§а бв ­Ёо}
             If X[j]<X[j+1] then
             begin
                  Temp:=X[j];
                  X[j]:=X[j+1];
                  X[j+1]:=Temp;
                  t:=j;
             end;
         b:=t;
    end;
end;

Begin
    ClrScr;
    Randomize;
    For i:=1 to N do X[i]:=Random(4096);
    SortData;
    For i:=1 to N do WriteLn(X[i]);
End.