дан одновременный массив из п целых положительных чисел.составить программу вычисления их среднего гармоничного

1

Ответы и объяснения

2013-01-21T12:06:51+00:00

var

  a : array [1..100] of integer;

  n, i : integer;

  sum : real;

begin

  read (n);

  for i := 1 to n do read (a[i]);

  sum := 0;

  for i := 1 to n do sum := sum + 1 / a[i];

  sum := n / sum;

  writeln (sum);

end.