1. заполнить массив из 15 элементов случайными целыми числами в интервале от 0 до 150. 2. вывести массив

Question

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

kondakovvasenk · Answer

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 138max = 143 Нечетных: 7 Сумма элементов, не превышающих 100: 328 Число 20 в массиве встречается0 6 20 23 27 35 36 57 58 66 101 108 113 138 143

Популярные вопросы