Составьте программу,которая находит творение 10 случайных чисел,лежащих от 1 до 20

1)program task1;

2)uses crt;

3)const n=10;

4)var a:array[1..n] of integer;

5) i:integer;

 6)sr:real;

7)begin

8)clrscr;

9)randomize;

10)for i:=1 to n do

11)begin

12)a[i]:=random(11)*1;

13)write(a[i],' ');

14)end;

15)for i:=1 to n d

16)begin

17)sr:=(a[1]*a[2]*a[3]*a[4]*a[5]*a[6]*a[7]*a[8]*a[9]*a[10])/n;

18)end;

19)writeln;

20)writeln('srednee arefmiticheskoe=',sr:6:2);

21)readln;

22)end

Ответ:

Изъясненье:

1)program task1;

2)uses crt;

3)const n=10;

4)var a:array[1..n] of integer;

    5) i:integer;

     6)sr:real;

7)begin

8)clrscr;

9)randomize;

10)for i:=1 to n do

11)begin

12)a[i]:=random(11)*1;

13)write(a[i],' ');

14)end;

15)for i:=1 to n do

16)begin

17)sr:=(a[1]*a[2]*a[3]*a[4]*a[5]*a[6]*a[7]*a[8]*a[9]*a[10])/n;

18)end;

19)writeln;

20)writeln('srednee arefmiticheskoe=',sr:6:2);

21)readln;

22)end.