XOPOSHISTIK
25.01.2021 02:00

1. заполнить массив из 10 целых элементов случайными числами из диапазона от -15 до 15 обеспечить вывод исходного массива на экран. подсчитать сумму положительных элементов массива. 2. дан массив из 15 целых элементов. обеспечить заполнение массива с клавиатуры. преобразовать массив: всем нечетным элементам присвоить значение 1 обеспечить вывод получившегося массива на экран. 3. дан массив из 10 вещественных элементов. обеспечить заполнение массива с клавиатуры. подсчитать среднее арифметическое положительных элементов массива.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ksenya64
08.06.2020 09:58

//PascalABC.NET 3.4.2

1.

begin

 write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);

end.

2.

begin

 readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;

end.

3.

begin

 readarrreal(10).Where(x -> x > 0).Average.Println;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота