uses crt;
var
a:array[1..1000] of integer;
i,j,num,n,k,chislo:integer;
begin
clrscr;
write('введите колличество элементов ');
readln(n);
writeln('заполните массив ');
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
writeln('исходный массив: ');
for i:=1 to n do
write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln('преобразованный массив: ');
for i:=1 to n do
write(a[i]:5);
writeln;
textcolor(10);
write('введите число ');readln(chislo);
num:=0;
for i:=1 to n do
begin
if a[i]<chislo then
begin
writeln('номер первого элемента меньше заданного числа равен ',i);
num:=1;
break;
end;
end;
if num=0 then writeln('такого элемента нет!');
readln;
end.