Pascal. Решить, используя массив+for+random
- Дан массив Num из 20 элементов - инвентарные номера книг в библиотеке. Элементы упорядочены по возрастанию, но могут отличаться друг от друга больше, чем на 1 (некоторые экземпляры списаны).
- Найти индекс в массиве Num книги с указанным инвентарным номером, который задается случайным образом из диапазона значений Num[1] - Num[20].
- Если такого номера нет - вывести сообщение об этом.
----------
Помогите, пожалуйста, с этой задачей
информатичка сама составляла вроде
Заранее спасибо ^^

Да как сказать про "не очень псевдослучайный"? На выборке из 10 млн чисел отклонение от "случайности" не превышает 0.19%

//PascalABC.Net 3.2beginvar num: array of integer;setLength (num, 21);num[1]:=random (1, 80);for var i:=2 to 20 dorepeatnum[i]:=random (101);until (num[i]>num[i-1]) and ((100-num[i])>(20-i));write ('Случайные инвентарные номера: ');for var i:=1 to 20 do print (num[i]); writeln;var ind:=random (1, 100);writeln ('Случайный инвентарный номер : ', ind);var i:=0;for i:=20 downto 0 do if num[i]=ind then break;if i<>0 then write ('Индекс=', i) else write ('Такого номера нет :-(');end.