Напишите программы в Pascal.
1. Напишите программу, которая определяет число учеников в классе, чей вес
превышает средний.
2. Напишите программу вычисления расстояния между точками А и В, если известны
координаты xA, yA, xB, yB.
3. Напишите программу нахождения всех двухзначных чисел и вычисления их
суммы.

#include <iostream>
using namespace std;

int main() {
    int n=12, imax=0, imin=0;
    int a[n];
    srand(time(NULL));
    cout<<"array:"<<endl;
    for (int i=0; i<n; i++)
    {
      a[i]=rand() % 50;
      cout<<a[i]<<" ";
    }
    cout<<endl;
    for (int i=1; i<n; i++) {
     if (a[i] > a[imax]) imax = i;
     if (a[i] < a[imin]) imin = i;
    }
    for (int i=0; i<n; i++) {
     if (i == imax || i == imin) cout << " ! " << a[i] << " ! ";
     else  cout << a[i] << " ";
    }
    cout<<endl;
    return 0;
}

Пример:
array:
31 0 13 29 13 34 33 42 40 26 48 24
31 ! 0 ! 13 29 13 34 33 42 40 26 ! 48 ! 24

В сообщении 16+8+4+4=32 символа. Вероятность появления символа А равна 16/32=1/2, символа Б 8/32=1/4, символов В и Г - 1/8.
Следовательно, для минимизации длины сообщения (условие "б") самым коротким должен быть символ А, несколько длиннее может быть символ Б и самые длинные - символы В и Г. По этой причине вариант 4) с равной длиной кодов не рассматриваем. Далее, достаточно компактными выглядят коды в варианте  2), но А=0 и В=01 нарушают условие "а" (код 0 является началом кода 01). Остаются варианты 1) и 3)
В варианте 1) нарушений условий нет. В варианте 3) код буквы Б 01 является началом кода буквы В 011 и это нарушает условие "а".
ответ: 1)