Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами Pascal ABC
Нет комментариев
Ответы
Гость Program n_2;var i:integer; a:array [1..5] of integer;begin randomize; for i:= 1 to 5 do a[i]:=random(44)+1; for i:= 1 to 5 do writeln('a[i]=',a[i]);end.
2 комментария:
тут интервал 45 есть
1) Где работа со множествами? 2) Что гарантирует неповторяемость сгенерированных чисел? Короче, неверное решение.
тут интервал 45 есть
1) Где работа со множествами? 2) Что гарантирует неповторяемость сгенерированных чисел? Короче, неверное решение. Список предметов
