Question

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

Answer 1

1. var
2.    sequenceResult: real;
3.    i: integer;
4. begin
5.    Randomize;
6.    
7.    sequenceResult := 1;
8.    
9.    for i := 1 to 10 do
10.        sequenceResult := sequenceResult * (random(20) + 1);
11.    
12.    //Writeln('Произведение 10 случайных чисел от 1 до 20 равно ', sequenceResult);
13. end.

Если Вам требуется вывести произведение, уберите // на 12 строке перед записью Writeln('...');