Question

Se da un numar natural n. Sa se afle media armonica a unui sir de n numere date.
In pascal va rog.

Answer 1

Răspuns:

program media_armonica;

var n,i:integer; num,s, ma:real;

begin

 write('n='); read(n);

 writeln('introdu ',n,' numere:');

 s:=0;

 for i:=1 to n do

   begin

     write('nr.',i,'. ');read(num);

     s:=s+1/num;

   end;

 ma:=n/s;

 writeln('media armonica = ',ma);

end.

Explicație: