1. заполнить массив из 15 элементов случайными целыми числами в интервале от 0 до 150. 2. вывести массив на экран в строчку, через пробел. 3. вывести на экран максимальный элемент массива. 4. вывести на экран количество нечетных элементов в массиве. 5. вывести на экран сумму элементов, не превышающих 100. 6. определить, встречается ли в массиве число "20". 7. выполнить сортировку массива по возрастанию. вывести результат на экран.
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 138max = 143 Нечетных: 7 Сумма элементов, не превышающих 100: 328 Число 20 в массиве встречается0 6 20 23 27 35 36 57 58 66 101 108 113 138 143