Паскаль! . задано массив целых чисел по убыванию - вопрос №33989301 от alinaosipyants 25.10.2020 23:50

Question

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

alinaosipyants · Answer

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....