Деление элементов массива друг на друга - Free Pascal

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

Приветствую, помогите пожалуйста с задачей: Даны два массива из целых чисел, представлены, соответственно, делимыми и делителями. Получить третий массив REZ, элементы которого будут частными от деления соответствующих пар исходных массивов

Решение задачи: «Деление элементов массива друг на друга»

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

program test;
 
const
  n = 5;
type
  TArray = array[1..n] of real;
var
  i: integer;
  a, b, rez: TArray;
begin
  for i := 1 to n do
    a[i] := 3 * i;
  for i := 1 to n do
    b[i] := 4 * sqr(i);
  for i := 1 to n do
  begin
    rez[i] := a[i] / b[i];
    Write(rez[i]: 0: 2, ' ');
  end;
  writeln;
end.

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

В данном коде выполняется деление элементов массива a на элементы массива b.

Объявляются константы и переменные:
- n = 5 - размер массива a и b;
- TArray = array[1..n] of real - тип массивов a и b;
- i = integer - счётчик для циклов;
- a, b, rez = TArray - переменные для хранения значений.
Заполняются значениями массивы a и b:
- Задаются значения элементов массива a с помощью цикла for и формулы a[i] := 3 * i.
- Задаются значения элементов массива b с помощью цикла for и формулы b[i] := 4 * sqr(i).
Делится элемент массива a на элемент массива b и записывается результат в элемент массива rez:
- Выполняется цикл for для прохода по всем элементам массива a.
- Внутри цикла переменная rez[i] принимает значение a[i] / b[i].
- С помощью функции Write выводится значение rez[i] на экран.
- Для улучшения читаемости значения rez[i] округляются до двух знаков после запятой с помощью синтаксиса 0:2.
- После вычисления и вывода значения rez[i] на экран, в конце каждой строки записывается пробел.
Завершается работа программы:
- В конце работы программы выводится символ новой строки с помощью функции writeln.