Question

помогите информатика 9класс

Answer 1

const
  n=5;
var
  a,b:array[1..n] of real;
  i:integer;
begin
  Write('Введите 5 чисел: ');
  for i:=1 to n do Read(a[i]);
  for i:=5 downto 1 do Write(a[i],' ');
  Writeln;
  for i:=1 to n do begin
    b[i]:=1/a[i];
    Write(b[i],' ')
    end;
  Writeln
end.

Пример
Введите 5 чисел: 14 2.7 -6 0.75 0.5
0.5 0.75 -6 2.7 14
0.0714285714285714 0.37037037037037 -0.166666666666667 1.33333333333333 2