Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А - Pascal ABC

Формулировка задачи:

Агент 007 решал нелегкую задачу. Нужно найти такое минимальное число в диапазоне от 0 до 10000, чтобы его не было в массиве А. Помогите агенту. Формат ввода N A[1],A[2]...A[N] Формат вывода С где N- количество чисел в массиве А С-минимальное число в диапазоне от 0 до 10000, которого нет в массиве А помогите пж

Код к задаче: «Найти такое минимальное число в диапазоне от 0 до 10000, которого нет в массиве А - Pascal ABC»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ