Question

Написать программу в Паскаль Турбо

Дан массив A размерностью N (размерность вводит пользователь). Массив заполнен случайными числами от -15 до 15. Каждый второй элемент заменить на результат их деления на предыдущий элемент (Округлить до 2 знаков после запятой).

Answer 1

program gam;

const

 nn = 100;

var

 a: array[1..nn] of real;

 i, n: integer;

 r: real;

begin

 read(n);

 randomize;

 for i := 1 to n do

 begin

   a[i] := (random(3001) - 1500) / 100;

   write(a[i]:7:2);

 end;

 writeln;

 i := 2;

 while i <= n do

 begin

   a[i] := a[i - 1] / a[i];

   i := i + 2

 end;

 for i := 1 to n do

   write(a[i]:7:2);

end.