Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А - Pascal ABC
Формулировка задачи:
Агент 007 решал нелегкую задачу. Нужно найти такое минимальное число в диапазоне от 0 до 10000, чтобы его не было в массиве А. Помогите агенту.
Формат ввода
N
A[1],A[2]...A[N]
Формат вывода
С
где N- количество чисел в массиве А
С-минимальное число в диапазоне от 0 до 10000, которого нет в массиве А
помогите пж
Код к задаче: «Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А - Pascal ABC»
Const nmax=10000; Var A:array[0..nmax] of integer; i,j,n,min:integer; temp:integer; Begin Repeat write('N: '); readln(n); Until (n>0)and(n<=nmax); For i:=0 to n - 1 do read(A[i]); For i:= n - 1 downto 1 do For j:=1 to i do if A[j] < A[j - 1] then Begin temp:= A[j]; A[j]:=A[j-1]; A[j-1]:=temp; End; min:=0; while (A[min] = min)and(min<=nmax) do inc(min); if min = nmax + 1 then writeln('Нет элемента удовлетворяющего условию') else writeln('Мин = ',min); End.
12 голосов, оценка 4.167 из 5
СОХРАНИТЬ ССЫЛКУ