Дан одномерный массив чисел. Если произведение элементов с чётными номерами больше произведения элементов с нечётными номерами, то найти номер максимального элемента, иначе – номер минимального элемента.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
type
R=sequence of integer;
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
then Writeln('Номер максимального элемента: ',a.IndexMax+1)
else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.
Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6
n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4
// Внимание! Если программа не работает, обновите версию!
type
R=sequence of integer;
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
then Writeln('Номер максимального элемента: ',a.IndexMax+1)
else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.
Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6
n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4
Ответ дал:
0
Помогите, пожалуйста, с блок-схемой
Ответ дал:
0
С какой блок-схемой?
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад