Question

1. Заполнить массив из 15 элементов случайными целыми числами в интервале от 0 до 150.
2. Вывести массив на экран в строчку, через пробел.
3. Вывести на экран максимальный элемент массива.
4. Вывести на экран количество нечетных элементов в массиве.
5. Вывести на экран сумму элементов, не превышающих 100.
6. Определить, встречается ли в массиве число "20".
7. Выполнить сортировку массива по возрастанию. Вывести результат на экран.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 150);

 a.Println;

 Println('max =', a.Max);

 Println('Нечетных:', a.Where(t -> t.IsOdd).Count);

 Println('Сумма элементов, не превышающих 100:',

     a.Where(t -> t <= 100).Sum);

 Writeln('Число 20 в массиве',a.Contains(20)?'':' не',' встречается');

 a.Sort;

 a.Println

end.

66 101 58 108 113 143 23 57 36 0 20 27 35 6 138

max = 143

Нечетных: 7

Сумма элементов, не превышающих 100: 328

Число 20 в массиве встречается

0 6 20 23 27 35 36 57 58 66 101 108 113 138 143