Дан набор 45 целых чисел. могут принимать значения от 160 до 198 - рост мальчиков выпускные классов и сантиметрах. в школьную баскетбольную команду набирают рост не менее 174 см. опишите на или на одном из программирования алгоритм, который находит и выводит минимальный рост кандидата в баскетбольную команду. известно, что в классе есть бы учащийся. который имеет рост, удовлетворяющий требованиям для команды баскетболистов.

{Автор:       Рудницкий В. Л.
Ограничения: Последовательность не может быть длинее NN.
Откуда:      Олимпиада, KZ, 2016.}
const  NN = 10000;
var  a  : array [1 .. NN] of integer;  i, j, d, N: integer;
begin
  write('Введите длину массива: '); readln(N);
  writeln('Введите массив чисел через пробел:');
  for i := 1 to N do    read( a[i] );
  { Удаляем повторы чисел }
  for i := 1 to N-1 do
    for j := i+1 to N do
      if a[i] = a[j] then a[j] := 0;
  { Создаем последовательность заполняя не нужные числа нулями }
  for i := 2 to N do    if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0;
  { Суммируем не нулевые элементы }
  d := 0;  for i := 1 to N do    if a[i] <> 0 then d := d + 1;
  writeln('Максимальная длинна массива после удалений: ',d);
end.

Заменим символы операций на более привычные (логическое сложение на сложение, логическое умножение - на умножение), но будем помнить, что все же это не арифметика, хотя и тут умножение "старше" сложения и выполняется первым.
x=19+17*13+22*14
1) 17₁₀*13₁₀
17₁₀ = 10001₂; 13₁₀=01101₂
Правила умножения поразрядно: 1*1=1, иначе 0
 10001
*01101

 00001 = 1₂
2) 19₁₀+1₂
19₁₀=10011₂
Правила сложения поразрядно: 0+0=0, иначе 1
  10011
+00001

  10011
3) 22₁₀*14₁₀
22₁₀=10110₂; 14₁₀=01110₂
 10110
*01110

 00110
4) 10011₂+00110₂
  10011
+00110

  10111₂ = 23₁₀