Сформировать новый массив из кубов элементов исходного массива - Pascal ABC

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

Написать алгоритм, составить блок-схему и отладить программу. Помогите решить задачу, и обьясните, пожалуйста, как вы ее сделали. Задан массив из M элементов. Определить куб каждого из элементов и сформировать новый массив. Заранее спасибо.

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

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

const
  n = 10;
 
var
  i: integer;
  a, b: array[1..n] of integer;
 
begin
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    b[i] := a[i] * a[i] * a[i];
    writeln(a[i]:5, b[i]:5)
  end;
end.

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

В данном коде формируется новый массив из кубов элементов исходного массива.

const n = 10; — задается размер исходного массива
var i: integer; a, b: array[1..n] of integer; — определяются переменные для работы с массивом
for i := 1 to n do begin — цикл по элементам исходного массива от 1 до n
a[i] := -n div 2 + random(n); — задается начальное значение элемента массива a
b[i] := a[i] a[i] a[i]; — вычисляется значение элемента массива b
writeln(a[i]:5, b[i]:5) — выводится значение элемента массива a и его куб на экран
end; — цикл завершается
end.