програма в паскалі на сортування

[Анн66]

відсортувати елементи кожного рядка матриці С(9,10) за зростанням

[ByAlex]

Сообщение от Анн66

відсортувати елементи кожного рядка матриці С(9,10) за зростанням

Разве нельзя вопрос оформлять по-русски или в Украине русский отменили?

[Максай]

Сообщение от Анн66

відсортувати елементи кожного рядка матриці С(9,10) за зростанням

Если я правильно понял, это означает "отсортировать элементы каждого ряда матрицы C(9,10) по возрастанию".
И в чём же проблема?

program Sort;

var
    C: array[ 0..9, 0..10 ] of integer;
    Row, Column, Temp, I, J: integer;

begin

    { Заполняем матрицу случайными числами. }
    Randomize;
    for Row := 0 to 9 do
        for Column := 0 to 10 do
            C[ Row, Column ] := Random( 255 );

    { Показываем неотсортированную матрицу. }
    for Row := 0 to 9 do
    begin
        for Column := 0 to 10 do
            Write( C[ Row, Column ] : 4 );
        WriteLn;
    end;
    WriteLn;

    { Сортируем пузырьком по возрастанию. }
    for Row := 0 to 9 do
    begin
        for I := 1 to 10 do
        begin
            for J := 10 downto I do
            begin
                if C[ Row, J - 1 ] > C[ Row, J ] then
                begin
                    Temp := C[ Row, J - 1 ];
                    C[ Row, J - 1 ] := C[ Row, J ];
                    C[ Row, J ] := Temp;
                end;
            end;
        end;
    end;

    { Показываем отсортированый результат. }
    for Row := 0 to 9 do
    begin
        for Column := 0 to 10 do
            Write( C[ Row, Column ] : 4 );
        WriteLn;
    end;

end.

Описание алгоритма сортировки есть в Википузии: Сортировка пузырьком.
Есть и мовою: Сортування бульбашкою.

[hon]

Сообщение от ByAlex

Разве нельзя вопрос оформлять по-русски или в Украине русский отменили?

Ви що, не вмієте розмовляти українською мовою?