// 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
512 кбит/с=64 кбайт/с
В минуту – 64*60=3800 кбайт=3,75 Мбайт
1 Гбайт = 1024 Мбайт
1024/3,75=273,1 минуты
<span>273,1/60=4,55 часа=4 часа 33 минуты </span>
1.Перевезёт волка
2.Перевезёт капусту
3.Перевезет козу.
Int a[5][7];
...
int s = 0;
for (int i = 0; i < 5; ++i)
for (int j = 0; j < 7; ++j)
s += a[i][j];
std::cout<<s;