Opimath
7 год назад
Составьте программу которая заполняет массив b [1...8] случайными целыми числами в диапазоне от 1 до 10 и находиь произведение элементов с нечетными значениями и количество элементов с четными значениями
ОТВЕТЫ
Lanadvap
Jul 17, 2019
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,1,10); a.Println;
Writeln(Произведение нечетных элементов ,
a.Where(x-gt;x.IsOdd).Aggregate(1,(x,y)-gt;x*y));
Writeln(Количество четных элементов ,
a.Where(x-gt;x.IsEven).Count)
end.
Пример
9 10 10 5 8 3 5 2
Произведение нечетных элементов 675
Количество четных элементов 4
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,1,10); a.Println;
Writeln(Произведение нечетных элементов ,
a.Where(x-gt;x.IsOdd).Aggregate(1,(x,y)-gt;x*y));
Writeln(Количество четных элементов ,
a.Where(x-gt;x.IsEven).Count)
end.
Пример
9 10 10 5 8 3 5 2
Произведение нечетных элементов 675
Количество четных элементов 4
174
Смежные вопросы:
