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: