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

Ответы

lorencz2002 08.06.2020 09:58

//PascalABC.NET 3.4.2

begin

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

end.

begin

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

end.

begin

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

end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

daniyal673 27.02.2020 20:59

Запишите алфавит 14-ой системы счисления...

GordienkoA20 27.07.2019 08:40

vikulyagorobet 28.06.2019 10:40

Nikcdi 01.06.2019 07:00

Loomina 01.06.2019 07:00

veronikarub 01.06.2019 07:00

помогитечемсможите 05.08.2019 07:10

7164260 05.08.2019 07:10

aaaaa123456789p 04.11.2020 06:37

Bekarys2002 04.11.2020 06:37

Как казахи знали время, если раньше не было часов?...