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;
writeln('Исходная матрица:');
for i:=0 to n-1 do
for j:=0 to n-1 do
read(a[i][j]);
write(a[i,j]:3);
writeln;
//сортировка всей матрицы по возрастанию
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('Отсортированная матрица по возрастанию');
end.
// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk
Объяснение:
использовать Чертежник
алг
нач
поднять перо
сместиться в точку (2,2)
опустить перо
сместиться на вектор (0,3)
сместиться на вектор (3,-3)
сместиться на вектор (-3,0)
сместиться в точку (5,2)
сместиться на вектор (1,1)
сместиться на вектор (-3,3)
сместиться на вектор (-1,-1)
сместиться в точку (3,6)
сместиться на вектор (4,6)
сместиться в точку (4,5)
сместиться на вектор (5,5)
сместиться в точку (5,4)
сместиться на вектор (6,4)
сместиться в точку (6,3)
сместиться на вектор (7,3)
кон
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
Объяснение:
Объяснение:
использовать Чертежник
алг
нач
поднять перо
сместиться в точку (2,2)
опустить перо
сместиться на вектор (0,3)
сместиться на вектор (3,-3)
сместиться на вектор (-3,0)
поднять перо
сместиться в точку (5,2)
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (-3,3)
сместиться на вектор (-1,-1)
поднять перо
сместиться в точку (3,6)
опустить перо
сместиться на вектор (4,6)
поднять перо
сместиться в точку (4,5)
опустить перо
сместиться на вектор (5,5)
поднять перо
сместиться в точку (5,4)
опустить перо
сместиться на вектор (6,4)
поднять перо
сместиться в точку (6,3)
опустить перо
сместиться на вектор (7,3)
кон