Question

вопрос по информатике
напишите программы в pascale для такой задачи
1.Петя впервые пришел на урок физкультуры в новой школе. Перед началом урока ученики выстраиваются по росту, в порядке невозрастания. Напишите программу, которая определит, на какое место в шеренге Пете нужно встать, чтобы не нарушить традицию, если заранее известен рост каждого ученика и эти данные уже расположены по невозрастанию (то есть каждое следующее число не больше предыдущего). Если в классе есть несколько учеников с таким же ростом, как у Пети, то программа должна расположить его после них.

Сначала задано число N учеников. Потом введены росты учеников в количестве
N (росты не превышают 200). Затем, на
новой строке, вводится рост самого Пети.

Программа должна вывести единственное число — номер Пети
в шеренге учеников

Answer 1

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
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

Answer 2

большое спасибо

Answer 3

Пожалуйста. Замечу только, что для "Спасбо" тут есть специальная кнопочка.