// 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.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
Var
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.
Через 3 часа - 2 клетки.
Через 6 часов - 4 клетки.
Через 9 часов - 6 клеток.
Через 12 часов - 8 клеток.
Через 18 часов - 12 клеток.
Через 24 часа - 16 клеток.
Алгоритм: кол-во ЧАСОВ делим на 3 часа и умножаем на 2 клетки.
Например: 48:3=16 и 16×2=32; то есть через 48 часов будет 32 клетки.
Он должен отрубить все головы, даже если останется одна голова узмеии появятся и другие головы.