1. for + random
a. вывести случайное
количество случайных чисел
b. вывести на экран 10
случайных чисел
c. вывести на экран 10
случайных чисел, значение которых лежит в отрезке [0,10]
d. вывести на экран 10 случайных
чисел, значение которых лежит в отрезке [0,9]
e. вывести на экран 10
случайных чисел в [10,20]
f. вывести на экран 10
случайных чисел в [97,122]
g. найти сумму чисел 10
случайных чисел в [0,10]
a. вывести случайное
количество случайных чисел
b. вывести на экран 10
случайных чисел
c. вывести на экран 10
случайных чисел, значение которых лежит в отрезке [0,10]
d. вывести на экран 10 случайных
чисел, значение которых лежит в отрезке [0,9]
e. вывести на экран 10
случайных чисел в [10,20]
f. вывести на экран 10
случайных чисел в [97,122]
g. найти сумму чисел 10
случайных чисел в [0,10]
More Questions From This User See All
Answers & Comments
Var i, n: Integer;
Begin
Randomize;
n := Random(10);
For i := 1 To n Do
WriteLn(Random, ' ');
End.
Program TaskB;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random, ' ');
End.
Program TaskC;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(11), ' ');
End.
Program TaskD;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(10), ' ');
End.
Program TaskE;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(20 + 10 + 1) - 10, ' ');
End.
Program TaskF;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(122 + 97 + 1) - 97, ' ');
End.
Program TaskG;
Var i, sum: Integer;
BeginRandomize;
For i := 1 To 10 Do
sum := sum + Random(11);
WriteLn(sum);
End.