roat9.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 18 行

var v:array[1..50] of integer;
    i,n,x,p:integer;
begin
write('n=');readln(n);
write('x=');readln(x);
write('v[1]=');
readln(v[1]);
i:=2;
repeat
write ('v[',i,']=');
readln(v[i]);
if v[i]>=v[i-1] then inc(i);
until i=n+1;
if (x<v[1]) or (x>v[n]) then write(x,' nu se gaseste printe elemente ')
                        else writeln(x,' se gaseste printre elemente');
readln;
end.