лабы / лаб4 / lab4_2

program lab4_2;
var
    n: integer = 10;
    A: array[1..10] of array[1..10] of integer;
    main_branch: array[1..10] of integer;
    i,j,shift,temp: integer;
begin
    randomize;

    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            if (i mod 2 <> 0) then A[i][j] := (3*(i-j)+8)
            else A[i][j] := random(100) - 100;
        end;
    end;

    WriteLn('Матрица A:');
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            Write(A[i][j], ' ');
        end;
        WriteLn('');
    end;
    WriteLn('');

    shift := n;
    for i:=1 to n do
    begin
        main_branch[i] := A[i][shift];
        shift := shift - 1;
    end;

    Write('Главная диагональ: ');
    for i:=1 to n do Write(main_branch[i], ' ');
    WriteLn('');

    for i:=1 to n do
    begin
        for j:=1 to n-1 do
        begin
            if (main_branch[j] < main_branch[j+1]) then
            begin
                temp := main_branch[j];
                main_branch[j] := main_branch[j+1];
                main_branch[j+1] := temp;
            end;
        end;
    end;

    Write('Главная диагональ(отсортированная): ');
    for i:=1 to n do Write(main_branch[i], ' ');
    WriteLn('');

    shift := n;
    for i:=1 to n do
    begin
        A[i][shift] := main_branch[i];
        shift := shift - 1;
    end;

    WriteLn('Матрица A с отсортированной главной диагональю по убыванию:');
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            Write(A[i][j], ' ');
        end;
        WriteLn('');
    end;
end.