Generování sudých čísel – Delphi – Fórum – Programujte.com

Ahoj, mám problém při náhodném generování pole o sudých číslech.
Má to být pole o velikosti 10 prvků, ale pokaždé při spuštění mě to vypisuje pole o délky jaké
se mu zachce, někdy 3 prvky, jindy 5 prvků. Neví někdo jak tohle ošetřit ??

uses
SysUtils;
var p:array[1..10] of integer;

i,j,k,l : integer;


begin
randomize;
for i:= 1 to 10 do
p[i]:=random (99)+1;

for i:= 1 to 10 do
if p[i] mod (2) = 0 then
write(p[i]:3) ;

readln;
end.

No nediv se, že ti to dělá to, co popisuješ, když jsi to přesně tak naprogramoval :) Asi si to dokážeš po sobě přečíst a interpretovat sám, ale pro jistotu. Nejprve do každého z 10 míst v poli uložíš náhodné číslo. Potom to pole projdeš a pokud je číslo na daném místě sudé, tak ho vypíšeš, jinak ne.


A řešení? Generuj jen sudá čísla:

random(99) * 2

Quiark díky moc, na tohle bych nepřišel ani za 100 LET.

Hele a jak by to bylo s lichými čísly ?????????

lichá čísla jsou vždycky o jedno vedle sudýho čísla. A sudý čísla už umíš :)

Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

p[i]:=random (99)*2+1;


Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Díky, thank.............................................................