Предмет: Информатика,
автор: anastia728
Написать программу сортировки массива по возрастанию из 10 случайных элементов.паскаль
Ответы
Автор ответа:
3
program aaa;
var
a:array[1..10] of integer;
i,j,x:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10000)-5000;
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=2 to 10 do
for j:=10 downto i do
if(a[j-1]>a[j]) then begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
var
a:array[1..10] of integer;
i,j,x:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10000)-5000;
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=2 to 10 do
for j:=10 downto i do
if(a[j-1]>a[j]) then begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
Автор ответа:
1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println; a.Sorted.Println
end.
Пример
32 23 -44 -39 40 23 -27 13 -36 -41
-44 -41 -39 -36 -27 13 23 23 32 40
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println; a.Sorted.Println
end.
Пример
32 23 -44 -39 40 23 -27 13 -36 -41
-44 -41 -39 -36 -27 13 23 23 32 40
Похожие вопросы
Предмет: Английский язык,
автор: kotovklim
Предмет: Английский язык,
автор: rotardd
Предмет: Английский язык,
автор: ulanbekzanybekov5
Предмет: Математика,
автор: danilakol2015
Предмет: Биология,
автор: мяу97