Сформировать одномерный массив N из элементов одномерного массива X путем деления каждого элемента массива X на свой индекс.

Var a, b:array of real;

i, n:integer;

begin

readln (n);

setlength (a, n);

setlength (b, n);

for i:=0 to n-1 do begin

read (a[i]);

b[i]:=a[i] / (i+1);

end;

for i:=0 to n-1 do

write (b[i],' ');

end.