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

Question

Информатика

Андрей

12 мая, 05:25

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

+5

Ответы (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.