<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
// простая пузырьковая сортировка
procedure BubbleSort(a:array of integer);
begin
var n:=a.Length;
for var i:=n-2 downto 0 do
for var j:=0 to i do
if a[j]>a[j+1] then Swap(a[j],a[j+1])
end;
begin
var a:=ReadArrInteger('Введите данные:',ReadInteger('n='));
BubbleSort(a);
a.Println
end.
<u>Пример</u>
n= 6
Введите данные: 4 7 2 8 0 2
0 2 2 4 7 8
На всем протяжении блок схемы N и так не меняется)
1 байт=8 бит
1КБ = 1024 байта
<span>1МБ=1024 КБ</span><span> 1 </span>килобайт<span> = 1 000 </span><span>байт
</span>
Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17