- var x,n,i:integer;
- e,z:real;
- a:array[1..20] of real;
- begin
- z:=1;
- writeln('Dati n');
- readln(n);
- for i:=1 to n do
- begin
- writeln('Dati numerele');
- readln(a[i]);
- if z<a[i] then
- z:=z+1;
- e:=e+exp(z*ln(a[i]));
- end;
- writeln('e=',e:4:5);
- end.
Multumesc anticipat
Welcome to BitCell. Click here to register !

