Найти произведение элементов массива с положительными номерами - Turbo Pascal

Формулировка задачи:

В одномерном массиве , который состоит из n целых элементов , вычислить : а ) произведение элементов массива с положительными номерами ; б) сумму элементов массива , расположенных между первым и последним нулевыми элементами ; в) превратить массив таким образом , чтобы сначала располагались все положительные элементы , а потом - все отрицательные (элементы , которые равны 0, считать положительные ) .

Решение задачи: «Найти произведение элементов массива с положительными номерами»

Листинг программы

const
  n = 10;
 
var
  a: array[-n..n] of integer;
  i: integer;
  p: real;
 
begin
  randomize;
  p := 1;
  for i := -n to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
    if i > 0 then
      p := p * a[i];
  end;
  writeln;
  writeln(p);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Задача заключается в том, чтобы найти произведение элементов массива с положительными номерами. В начале кода объявляются две переменные: n и a. Переменная n инициализируется значением 10. Переменная a представляет собой массив целых чисел, который будет использоваться для хранения элементов. Далее идет цикл for, который выполняется от -n до n. Внутри цикла каждый элемент массива a[i] инициализируется случайным числом, которое находится в диапазоне от -n до n. Затем значение элемента выводится на экран. Если i больше 0, то значение переменной p умножается на значение a[i]. Таким образом, p постепенно увеличивается и в конце цикла равно произведению всех элементов массива с положительными номерами. После завершения цикла выводится значение переменной p.