Дан целочисленный одномерный массив, состоящий из n элементов. найти произведение нечетных элементов массива.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Произведение нечетных равно ',
    a.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
n= 40
-88 11 83 20 82 -8 18 52 51 96 -58 8 76 -70 -8 -33 -97 -11 17 42 -2 43 94 -81 19 -25 -99 86 -6 -55 14 35 -51 28 51 44 11 2 -46 -9
Произведение нечетных равно -2262855352516738717811968125

Объяснение:

1. Можно вычислять скорость передачи, но в конкретном случае намного проще решить математически, через пропорцию:

12 Мб - 9 минут

8 Мб - x минут

x=8*9/12= 6 минут

2. В книжке всего 400*30*60=720000 символов. Каждый символ кодируется 8 битами. Значит всего в книжке 720000*8=5760000 бит.

При скорости передачи 5 кбит/с = 5120 бит/с книжку можно передать за 5760000 / 5120=1125 секунд.

3. 2 Кб = 2048 байт= 2048*8=16384 бит.

Если 16384  бит передали за 8 с, то каждую секунду передается 16384/8=2048 бит

Const k=10;
type arr=array[1..k] of integer;
procedure p1(var x:arr);
var i:integer;
begin
for i:=1 to k do
 begin
 x[i]:=random(30)-15;
 write(x[i]:3);
 end;
writeln;
end;
function f1(var x:arr):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do
 if x[i]<0 then s:=s+x[i]*x[i];
f1:=s;
end;
var a,b:arr; m,n:integer; x:real;
begin
writeln('a:');
p1(a);
writeln('b:');
p1(b);
m:=f1(a);
n:=f1(b);
writeln('m = ',m,' n = ',n);
x:=m/(n-m);
writeln('x = ',x:6:4);
end.

Пример:
 a:
-13 7-11 11 -3 4 13 3 -1 2
b:
  8 -2 5 10 9 8 -8 12 7-13
m = 300 n = 237
x = -4.7619