30 ! паскаль. используя двумерные массивы решить - вопрос №30569484947 от fiasko2 30.12.2022 22:14

Question

Информатика: 30 ! паскаль. используя двумерные массивы решить : дана целочисленная матрица размера 5x6. поменять местами 1 и 2 столбцы.

fiasko2 · Answer

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

Writeln('*** Исходная матрица ***');

var a := MatrRandom(5, 6, -99, 99);

a.Println(4); Writeln(4 * a.ColCount * '-');

Writeln('***Результат ***');

a.SwapCols(0, 1);

a.Println(4)

end.