Помогите с задачкой плиз

[Raptor5]

Даны числа от 1 до 90. нужно взять из этого диапозона 12 случайных чисел и вывести на экран.

[Xardas]

Честно говоря, мне б было стыдно обращаться с такой задачей...

random(<диапазон>) + цикл. Задача в две строчки решается.

[Raptor5]

Лично я плохо понимаю все эти циклы и случайные числа, так что мне не стыдно

[Xardas]

Ну тогда не помешало бы Вам почитать чего-нибудь.

Самый простой вариант поднять глаза в самый верх раздела и направиться сюда. И, наконец, поисковики работают круглосуточно (в том числе и на этом форуме). Задачка то, информатика 7 класс...

[Rusl92]

for i:=1 to 12 do
begin
randomize;
k:=random(90);
write(k);
end;
вот и все!

[puporev]

А если 12 раз выпадет число скажем 5?

[Xardas]

Сообщение от Rusl92

for i:=1 to 12 do
begin
randomize;
k:=random(90);
write(k);
end;
вот и все!

Число 90 не попадет, значение k будет колебаться от 0 до 89, вот незадача то , при Вашем выводе все числа сольются в одно "большое" (ну это , в принципе не существенно), и зачем 12 раз проводить инициализацию генератора случайных чисел...

[RealSHELS]

Сообщение от Xardas

Число 90 не попадет, значение k будет колебаться от 0 до 89, вот незадача то , при Вашем выводе все числа сольются в одно "большое" (ну это , в принципе не существенно), и зачем 12 раз проводить инициализацию генератора случайных чисел...

Раз сказал, так покажи как надо.

var
i,k:integer;
begin
randomize;
for i:=1 to 12 do
begin
k:=random(90)+1;
write(k,' ');
end;
readln;
end.

[Rusl92]

Тоже самое, извините, немного ошибься!Рандом же идет от 0 до числа заданного до минусм одного!
а randomize можно только перед циклом написать!Спасибо, что поправили!

[Xardas]

Сообщение от Rusl92

Тоже самое, извините, немного ошибься!Рандом же идет от 0 до числа заданного до минусм одного!
а randomize можно только перед циклом написать!Спасибо, что поправили!

Опять же Вас поправлю, точнее сказать "ни минус один", а следующим образом: random(<диапазон>) вернет случайное число x, причем 0<=x<диапазон