петя впервые пришел на урок физкультуры в новой школе. перед началом урока ученики выстраиваются по росту, в порядке невозрастания. напишите программу, которая определит на какое место в шеренге пете нужно встать, чтобы не нарушить традицию, если заранее известен рост каждого ученика и эти данные уже расположены по невозрастанию (то есть каждое следующее число не больше предыдущего). если в классе есть несколько учеников с таким же ростом, как у пети, то программа должна расположить его после них.
входные данные
сначала задано число n — количество учеников (не считая петю)(1< =n< =100). далее через пробел записаны n чисел — элементы массива. массив состоит из натуральных чисел, не превосходящих 200 (рост учеников в сантиметрах). затем, на новой строке, вводится рост самого пети.
выходные данные
необходимо вывести единственное число - номер пети в шеренге учеников.
примеры
входные данные
8
165 163 160 160 157 157 155 154
162
выходные данные
3
п.с. питон
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<
k := a;
while s < b do begins := s+k;<k := k+1;<end;writeln(k)end.
если
a=15 b=36
ответ будет :15