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

Question

Информатика

Ольгуха

17 июня, 22:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Земфира · 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.