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