Question

Паскаль!. Задано массив целых чисел упорядочений по убыванию А(1;n) и число В. Для числа В найти такое место среди элементов массива А ,чтоб после вставки числа В на это место упорядоченность массива не нарушалась. Если впоследствии равенства между собою значений элементов массива А число может вставляться на разные места,то следует выяснить самое близкое к началу массива место.

Answer 1

Program gt;
var a:array[1..100]of integer;
n,i,B,j:integer;
begin
readln(n)
for i:=1 to n do
read(a[i]);
j:=0;
for i:=1 to n do
if(a[i]<=b)then begin
j:=i;
break;
end;
if(j>0)then writeln(j) else writeln(n+1);
end.