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

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

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


textual

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

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.

Блок-схема:

Блок-схема к задаче: Деление элементов массива друг на друга - Free Pascal
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы