Вопрос по информатике напишите программы в pascale для такой 1.петя впервые пришел на урок физкультуры в новой школе. перед началом урока ученики выстраиваются по росту, в порядке невозрастания. напишите программу, которая определит, на какое место в шеренге пете нужно встать, чтобы не нарушить традицию, если заранее известен рост каждого ученика и эти данные уже расположены по невозрастанию (то есть каждое следующее число не больше предыдущего). если в классе есть несколько учеников с таким же ростом, как у пети, то программа должна расположить его после них. сначала задано число n учеников. потом введены росты учеников в количестве n (росты не превышают 200). затем, на новой строке, вводится рост самого пети. программа должна вывести единственное число — номер пети в шеренге учеников
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
Тестовое решение:
5
175 169 172 180 174
174
4