ПАСКАЛЬ. Создать двумерный массив, ввести с клавиатуры значения и отсортировать их в порядке возрастания
Ответы
Ответ дал:
1
Ответ:
const n=5;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..n-1,0..n-1] of integer;
i,j,k:byte;
x:integer;
begin
writeln('Исходная матрица:');
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
read(a[i][j]);
end;
end;
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
write(a[i,j]:3);
end;
writeln;
end;
//сортировка всей матрицы по возрастанию
for i:=0 to n*n-2 do
for j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n]
then Swap(a[i div n,i mod n],a[j div n,j mod n]);
writeln('Отсортированная матрица по возрастанию');
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
write(a[i,j]:3);
writeln;
end;
end.
// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk
Объяснение:
Приложения:
![](https://st.uroker.com/files/8ad/8adaf9a2ba87681ab4ff15d0fd7ae0ef.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад