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

[obsession]

не могу решить задачу. помогите пожалуйста

вывести все четные числа, определяемые случайным образом с помощью функции рандом. количество чисел запрашивается с клавиатуры

я с количеством запуталась...

[Valio]

В чём это надо писать?

Решение задачи - один цикл for.

[obsession]

я полностью запуталась. особенно с количеством. можете пример написать?

[Valio]

Randomize;
Readln(n);
For i := 1 To n Do
Begin
a := Random(10);
If a div 2 = 0 Then Writeln(a);
End;

[obsession]

спасибо!


это ведь паскаль??? )))))

[Valio]

Это будет и в паскале работать и в консольном приложении Delphi.

[Stilet]

Это подойдет и для Делфи.

[obsession]

тогда n и a нужно как то связать. он то выводит только одно число, а нужно n чисел.

Randomize;
n:=strtoint(edit1.text);
For i := 1 To n Do
Begin
a := Random(100);
label1.Caption:=inttostr(a);

[Valio]

Тогдауж

label1.Caption := '';
Randomize;
n:=strtoint(edit1.text);
For i := 1 To n Do
Begin
a := Random(100);
label1.Caption := label1.Caption + ', ' + inttostr(a);

[obsession]

вот именно что я не могу заранее знать какое количество чисел нужно вводящему. и говорю что a и n связать надо