:в массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12, найти среднее арифметическое, произведение отриц. чисел, кол-во четных и элемент 1. создание массива 2. заполнение массива 3. посчитать 4. вывод )

Дахич1 Дахич1    1   18.09.2019 18:20    0

Ответы
borovikovaarina borovikovaarina  08.10.2020 00:33
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018

// Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(8,-12,12); mas.Println;

 Writeln('среднее арифметическое=',mas.Average);

 Writeln('произведение отриц. чисел=',mas.Where(t->t<0).Aggregate(biginteger(1),(x,y)->x*y));

 Writeln('кол-во четных=',mas.Where(t->t mod 2=0).Count);

 Writeln('максимальный элемент=',mas.Max);

end.
:в массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12, найти среднее арифметическо
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика