Можете хоть что-то
я совсем не понимаю это
заранее

ответ:

только с 4,к сожалению(

объяснение:

паскаль

1var n,x,s,i: integer;

2 sr: real;

3 begin

4 writeln ('кол-во чисел в последовательности n=');

5 readln (n);

6 s: =0;

7 for i: =1 to n do

8 begin

9 read (x);

10 s: =s+x;

11 end;

12 sr: =s/n;

13 writeln('sr=',sr)

14 end.

ответ: № 2

program test;

var

  n, i, j, f: integer;

  s: double;

begin

  write ('введите n: ');

  readln (n);

  s : = 1;

  for i : = 1 to n do begin

    f : = 1;

    for j : = 1 to i + 1 do

      f : = f * j;

    s : = s + i / f;

    writeln (i, s : 20 : 15);

  end;

  readln;

end.