Ребят, хелп, нужно перевести обычную программу Паскаль в процедуры
const
n = 100; { количество элементов в массиве }
var
a:array[1..n] of integer;
i,j,ord:integer;
begin
{Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран}
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=i+1 to n do {В этой строке начинающие программисты чаcто допускают ошибку}
if a[i]>a[j] then
begin
ord:=a[i];
a[i]:=a[j];
a[j]:=ord;
end;
writeln;
writeln('Массив после сортировки пузырьковым методом: ');
for i:=1 to n do
write(a[i],' ');
end.
const
n = 100; { количество элементов в массиве }
var
a:array[1..n] of integer;
i,j,ord:integer;
begin
{Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран}
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=i+1 to n do {В этой строке начинающие программисты чаcто допускают ошибку}
if a[i]>a[j] then
begin
ord:=a[i];
a[i]:=a[j];
a[j]:=ord;
end;
writeln;
writeln('Массив после сортировки пузырьковым методом: ');
for i:=1 to n do
write(a[i],' ');
end.
Answers & Comments
const
n = 100; { количество элементов в массиве }
var
a : array of integer := new integer[n];
function sortArr(d : array of integer) : array of integer;
var
ord : integer;
begin
for var i := 0 to n-2 do for var j := i+1 to n-1 do if d[i] > d[j] then begin
ord := d[i];
d[i] := d[j];
d[j] := ord;
end;
result := d;
end;
begin
a := arrRandom(n, 0, 9);
writeln(a);
a := sortArr(a);
writeln;
writeln('Массив после сортировки пузырьковым методом: ');
writeln(a);
end.