17 lines
357 B
ObjectPascal
17 lines
357 B
ObjectPascal
|
// Цикл for. Последовательность случайных чисел
|
|||
|
|
|
|||
|
|
const
|
|||
|
|
n = 20;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
i: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
write('Случайные оценки: ');
|
|||
|
|
for i := 1 to n do
|
|||
|
|
write(Random(2, 5), ' ');
|
|||
|
|
writeln;
|
|||
|
|
write('Случайные целые от 1 до 99: ');
|
|||
|
|
for i := n downto 1 do
|
|||
|
|
write(Random(1, 99), ' ');
|
|||
|
|
end.
|