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

Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по убыванию. Подсчитать количество элементов больше 10, вывести результат.

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1230 от 27.04.2016
    begin
      var a:=ArrRandom(15,-30,30); a.Println;
      a:=a.Sorted.ToArray; a.Println;
      Writeln('Элементов, больших 10- ',a.Where(x->x>10).Count)
    end.

    Тестовое решение
    17 15 -26 -26 -9 8 -16 -7 -8 -3 23 12 10 29 -13
    -26 -26 -16 -13 -9 -8 -7 -3 8 10 12 15 17 23 29
    Элементов, больших 10- 5