TheSphinx
02 de Diciembre del 2005

Hola a todos.

Les habla un principiante de la programaci贸n en Delphi y quiero hacerles una consulta. Quiero declarar diez variables integer y que de esas diez se escojan dos al azar y se le ponga el valor 1. y que las otras ocho que sobren tengan el valor 2. C贸mo lo hago?

Gracias y saludos a todos.

devs.com.ar
02 de Diciembre del 2005

Usando arrays.

var
enteros : array [0..9] of integer;
i : integer;
begin
for i := 0 to 9 do
enteros[i] := 2;
enteros[random(10)] := 1;
enteros[random(10)] := 1;
end;

Saludos.

devs.com.ar
02 de Diciembre del 2005

Olvid茅 algo...
Random puede devolver el mismo numero las dos veces, por lo que no conseguirias tu objetivo.
Soluci贸n:

var
enteros: array [0..9] of integer;
i, j: integer;
begin
for i := 0 to 9 do
enteros[i] := 2;
j := random(10);
enteros[j] := 1;
repeat
i:=random(10);
until i <> j;
enteros[i] := 1;
end;