profile
Опубликовано 5 лет назад по предмету Информатика от nastyagorshkova

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

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1230 от 27.04.2016
    begin
      var a:=ArrRandom(10,10,99); a.Println;
      a.Sorted.Println;
      a.SortedDescending.Println
    end.

    Тестовое решение
    64 96 11 47 51 28 69 72 44 44
    11 28 44 44 47 51 64 69 72 96
    96 72 69 64 51 47 44 44 28 11