Сформировать новый массив , являющийся суммой кубов исходных массивов - Turbo Pascal

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

Задать два вещественных массива одинакового размера (не более 17 элементов) Вывести исходные массивы на экран Сформировать новый массив , являющийся суммой кубов исходных массивов Вычислить произведение ненулевых элементов каждого массива

Решение задачи: «Сформировать новый массив , являющийся суммой кубов исходных массивов»

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

const
  n = 17;
 
var
  a, b, c: array[1..n] of real;
  i: integer;
  p1, p2, p3: real;
 
begin
  randomize;
  p1 := 1;
  p3 := 1;
  p2 := 1;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    if a[i] <> 0 then
      p1 := p1 * a[i];
    b[i] := -n div 2 + random(n);
    if b[i] <> 0 then
      p2 := p2 * b[i];
    c[i] := a[i] * a[i] * a[i] + b[i] * b[i] * b[i];
    if c[i] <> 0 then
      p3 := p3 * c[i];
    writeln(a[i]:12:2, b[i]:12:2, c[i]:12:2);
  end;  
  writeln;
  writeln('P1: ', p1);
  writeln('P2: ', p2);
  writeln('P3: ', p3);
end.

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

В коде определена константа n, которая равна 17.
Объявлены три массива a, b, c, каждый из которых содержит n элементов типа real.
Также объявлена переменная i типа integer, которая будет использоваться в цикле.
Задаются начальные значения для переменных p1, p2, p3, которые равны 1.
Выполняется цикл по всем элементам массива от i = 1 до n.
Внутри цикла выполняется следующее:
- Элементы массива a заполняются случайными числами от -n/2 до n/2.
- Если элемент массива a не равен нулю, то он умножается на p1.
- Элементы массива b заполняются случайными числами от -n/2 до n/2.
- Если элемент массива b не равен нулю, то он умножается на p2.
- Элементы массива c заполняются кубами сумм элементов массивов a и b, т.е. a[i] a[i] a[i] + b[i] b[i] b[i].
- Если элемент массива c не равен нулю, то он умножается на p3.
После завершения цикла выводятся значения элементов массивов a, b, c с шагом 12:2.
Затем выводятся значения переменных p1, p2, p3.
Код завершается.