// 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
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
<span>x = 1250
a = x div 8 = 1250 div 8 = 156
b = a mod 10 div 3 = 156 mod 10 div 3 = 6 div 3 = 2</span>
Е-0, П-1, Н-2, Ч-3, Ь-4. Сначала находим двоичные коды чисел(переводим эти числа из десятичной системы счисления в двоичную. Там, где после перевода остается только одна цифра, впереди приписываем ноль). Таким образом, получим:
Е-00, П-01, Н-10, Ч-11, Ь-100.
Закодируем слово ПЕЧЕНЬЕ в двоичном коде: 01 00 11 00 10 100 00(2). Переведем это число в восьмеричную систему счисления любым известным нам способом, получим 23120(8).
Для определения, является ли число положительным достаточно сравнить его с нолём. Число больше ноля - положительное, меньше ноля - отрицательное. Сам по себе ноль не является ни положительным, ни отрицательным числом, но т.к. на ход решения это не влияет, этой деталью можно пренебречь. Алгоритм:
1. Начало
2. Ввести числа а и b
3. Если число a > 0 то запомнить a = a * 10
иначе запомнить a = a * a
4. Если число b > 0 то запомнить b = b * 10
иначе запомнить b = b * b
5. Вывести числа a и b
6. Конец