Program number10;

uses crt;
const n = 3;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
x: integer;

begin
writeln('Исходная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
a[i, j] := random(101);
write(a[i, j]:4);
end;
writeln;
end;
writeln('Транспонированная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
swap(a[i, j], a[j, i]);
write(a[i, j]:3);
end;
writeln;
end;
end.

Нужно сделать так, чтобы столбцы с строкой менялись местами, первая строка делает всё как надо, а две другие так и остаются.

Режим инкогнито, приватный просмотр — режим браузеров, временно дающий «новое» устройство без истории сёрфинга. Иногда дополнительно усиливается защита информации: например, начинает агрессивнее работать блокировщик трекеров.

Может применяться:

1)для сёрфинга по порно, медицинским и прочим законным, но компрометирующим сайтам, покупки подарков втайне от домочадцев

2)для сёрфинга на чужом устройстве

3)для временного частичного снятия пузыря фильтров

4)для ухода от оплаты на некоторых новостных сайтах

5)для отладки сайтов

6)для трансляции экрана

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}