Дан двумерный массив размером nxn , заполненный целыми числами с клавиатуры. Поменять местами последнюю строку с последним столбцом. ( Паскаль)
Ответы
Ответ дал:
0
PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println; Writeln(4*a.ColCount*'-');
for var i:=0 to n-2 do Swap(a[n-1,i],a[i,n-1]);
Writeln('*** Полученный массив ***'); a.Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println; Writeln(4*a.ColCount*'-');
for var i:=0 to n-2 do Swap(a[n-1,i],a[i,n-1]);
Writeln('*** Полученный массив ***'); a.Println
end.
Приложения:
![](https://st.uroker.com/files/62d/62d47bd878d7d09ca62b2879cf073ed3.jpg)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад