задача с функцией random

[Valio]

какое количество чисел нужно вводящему.

Вообщето ко-ло чисел "вводящий" вводит сюда:

n:=strtoint(edit1.text);

Или какое кол-во имеешь ввиду?

[obsession]

я имею в виду что в лейбл он выводит только одно число. а нужно n

[Valio]

Я в 9 посте уточнил этот момент написав:

label1.Caption := label1.Caption + ', ' + inttostr(a);

[obsession]

ааааааааа......... спасибо большое)))

[obsession]

Randomize;
n:=strtoint(edit1.text);
For i := 1 To n Do
Begin
If a div 2 = 0 Then
label1.Caption:=label1.Caption + ', ' +inttostr(a);
a := Random(100);
memo1.Text:= memo1.Text + ', ' + inttostr(a);

почему он в лейбл ничего не выводит??

[Valio]

Надо Mod использовать

If a mod 2 = 0 Then