pascalabcnet/InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas

11 lines
286 B
ObjectPascal
Raw Normal View History

// Цикл for. Последовательность случайных чисел
2015-05-14 22:35:07 +03:00
const n = 20;
begin
for var i:=1 to n do
write(Random(2,5),' ');
writeln;
write('Случайные целые от 1 до 99: ');
2015-05-14 22:35:07 +03:00
for var i:=n downto 1 do
write(Random(1,99),' ');
end.