1. Заполнить массив из 10 целых элементов случайными числами из диапазона от -15 до 15 Обеспечить вывод исходного массива на экран. Подсчитать сумму положительных элементов массива. 2. Дан массив из 15 целых элементов. Обеспечить заполнение массива с клавиатуры. Преобразовать массив: всем нечетным элементам присвоить значение 1 Обеспечить вывод получившегося массива на экран. 3. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива с клавиатуры. Подсчитать среднее арифметическое положительных элементов массива.
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
3.
readarrreal(10).Where(x -> x > 0).Average.Println;