Предмет: Информатика, автор: anastia728

Написать программу сортировки массива по возрастанию из 10 случайных элементов.паскаль

Ответы

Автор ответа: pokemanbr
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.
Автор ответа: Аноним
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
Похожие вопросы
Предмет: Английский язык, автор: kotovklim
Предмет: Английский язык, автор: ulanbekzanybekov5
Предмет: Математика, автор: danilakol2015