Помогите срочно с инФорматикой ！Уровень В Задание 1

Question

Помогите срочно с инФорматикой ！Уровень В Задание 1

---

Answer 1

Const
  nn=100; { максимальный размер }

var
  a:array[1..nn] of integer;
  i,n,k1,k2:integer;
  p:real;

begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ')
    end;
  Writeln;
  Writeln('Уменьшим элементы массива вдвое');
  for i:=1 to n do begin
    a[i]:=a[i] div 2;
    Write(a[i],' ')
    end;
  Writeln;
  Write('Введите k1 <= k2 <= n: '); Read(k1,k2);<br>  p:=1;
  for i:=k1 to k2 do p:=p*a[i];
  Writeln('Произведение элементов c номерами ',k1,'..',k2,' = ',p)
end.

Пример
n=13
-44 1 -5 44 16 -11 -29 36 -21 -42 3 1 40
Уменьшим элементы массива вдвое
-22 0 -2 22 8 -5 -14 18 -10 -21 1 0 20
Введите k1 <= k2 <= n: 3 8<br>Произведение элементов c номерами 3..8 = -443520