Mostrando postagens com marcador Criando arrays ramdomicos. Mostrar todas as postagens
Mostrando postagens com marcador Criando arrays ramdomicos. Mostrar todas as postagens

quarta-feira, 25 de novembro de 2009

Criando arrays ramdomicos

Var
a: array[0..4] of integer;
i: Integer;
begin
for i:= 0 to 4 do
begin
a[i]:= random(99) + 1;
end;

end;

// obs: o 99 no random é o intervalo a ser sorteado

quarta-feira, 7 de outubro de 2009

Criando arrays ramdomicos

Var
a: array[0..4] of integer;
i: Integer;
begin
for i:= 0 to 4 do
begin
a[i]:= random(99) + 1;
end;

end;

// obs: o 99 no random é o intervalo a ser sorteado .