allo01
?>

1. Выполните перевод: 7а) 23511⁶-?⁷, г) A90¹¹.-?¹⁶ж) DЕD¹⁵ -?¹⁶б) 1102³-?⁹д) 122122³-?¹³3) 4152⁷ -?¹⁰в) 6317⁸-?¹⁰е) 1236⁸-?⁴и) АС2¹⁴-?⁵

Информатика

Ответы

alexeytikhonov
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),1,50);
  a.Println;
  Writeln('Сумма нечетных элементов : ',
      a.Where((x,i)->i.IsEven).Sum);
  Writeln('Произведение нечетных элементов: ',
      a.Where((x,i)->i.IsEven).Aggregate(1.0,(p,q)->p*q))
end.

Пример
n= 8
15.4810654863161 23.0172746381803 33.7221310123439 43.045114823638 9.12741185358139 5.36693139344777 24.408098445464 16.3833775466231
Сумма нечетных элементов : 82.7387067977054
Произведение нечетных элементов: 116304.750204143

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1. Выполните перевод: 7а) 23511⁶-?⁷, г) A90¹¹.-?¹⁶ж) DЕD¹⁵ -?¹⁶б) 1102³-?⁹д) 122122³-?¹³3) 4152⁷ -?¹⁰в) 6317⁸-?¹⁰е) 1236⁸-?⁴и) АС2¹⁴-?⁵
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Lesya
mishink535
vnolenev
Сурат1199
anazarov80
Сергеевич1726
nataliaterekhovasinger2
katar050419735
rublevaoe392
АркадьевичБундин789
Yurok9872
Лихачев Полина1978
panasenko68
kolgatin69
serkan777