Задание:
Напишите программу, которая выводит номера билетов, чтобы они не повторялись
Решение:
Я так понимаю намера билетов надо вывести в случайном порядке? Пусть надо вывести в случайном порядке номера 100 билетовprogram RND; var a: array[1… 100]of integer; i.j,f: integer; beginrandomize; i: =1; white i<101 do beginf: =0; A[i]: =int (random (100); for j: =1 to i do if A[j]=A[i] then f: =1; if f=0 then i: =i+1; end; for i: =1 to 100 do writeln (A[i]); end.
Знаете другой ответ?