Составьте программу,которая находит творение 10 случайных чисел,лежащих от 1 до 20
Составьте программу,которая обретает произведение 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.