15 lines
273 B
ObjectPascal
15 lines
273 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. |