-
Lenguaje
Pascal
-
Descripción
Imprimir en pantalla 10 números generados al azar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
2
3
4
5
6
7
8
9
10
11
12
13
14
program _10NumerosAlAzar;
uses crt;
var i, numero_al_azar : integer;
begin
randomize;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
numero_al_azar := random(1000);
writeln ('Valor de numero al azar: ', numero_al_azar);
writeln;
end;
end.
uses crt;
var i, numero_al_azar : integer;
begin
randomize;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
numero_al_azar := random(1000);
writeln ('Valor de numero al azar: ', numero_al_azar);
writeln;
end;
end.