Дан целочисленный массив A [n]
уменьшите все элементы массива в 2 раза.
определите произведение элементов массива с k1 по k2 (k2>k1).

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ArrRandom(ReadInteger(n=),-50,50); a.Println;
  a:=a.Select(x-gt;x div 2).ToArray;
  a.Println;
  var k1,k2:integer;
  Write(Введите k1,k2 (k1lt;=k2lt;=,a.Length,): ); Read(k1,k2);
  Writeln(Произведение элементов с номерами [,k1,:,k2,] равно ,
    a[k1-1:k2].Aggregate(biginteger(1),(m,n)-gt;m*n))
end.

Пример
n= 13
12 34 -4 -18 23 45 -7 49 47 11 -24 39 31
6 17 -2 -9 11 22 -3 24 23 5 -12 19 15
Введите k1,k2 (k1lt;=k2lt;=13): 3 8
Произведение элементов с номерами [3:8] равно -313632