Question

NumarLipsa

Cerința
Se dă un sir cu n numere naturale. Determinați cel mai mic număr natural nenul care nu apare printre numerele date.

Date de intrare
Programul citește de la tastatură numărul n, iar apoi n numere naturale.

Date de ieșire
Programul va afișa pe ecran numărul determinat X.

Restricții și precizări
1 ≤ n ≤ 100
cele n numere citite vor fi mai mici decât 1.000.000.000

Answer 1

var a:array of integer;
i,n,b:byte;
max,x:integer;

begin
Write('Numarul numerelor: '); read(n);
if (n<1) or (n>100) then exit else
setlength(a,n);
writeln;
writeln('Numere:');
for i:=0 to n-1 do read(a[i]);
max:=a[0];
for i:=0 to n-1 do if a[i]>max then max:=a[i];
Writeln;
for x:=1 to max+1 do begin
b:=0;
for i:=0 to n-1 do if x=a[i] then inc(b);
if b=0 then
begin
writeln('X-ul: ',x);
exit
end;
end;
end.