Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами Pascal ABC

Question

Информатика

Еняша

15 августа, 16:10

Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами Pascal ABC

+4

Ответы (1)

Знаете ответ на вопрос?

Палюня · Answer 1

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.