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

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

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

Код к задаче: «Деление элементов массива друг на друга - Free Pascal»

textual
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.

12   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ