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

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