Заголовок процедуры вычисления наибольшего общего делителя может быть описан так:  procedure nod (a,b:integer; var c:integer);

  Вариант вызова процедуры:
nod (60,23,z)

 1)в качестве параметров-значений использованы выражения
2)в качестве параметров-значений использованы имена переменных
3)в качестве параметров-значений использованы константы

​

/** libraries */

#include <iostream>

#include <cmath>

#include <vector>

#include <map>

#include <set>

#include <queue>

#include <stack>

#include <algorithm>

/** libraries */

using namespace std;

/** defines */

#define ll long long

#define ld long double

#define yes cout << "YES" << "\n"

#define no cout << "NO" << "\n"

/** defines */

int a[20];

void solve(){

   ld sum = 0;

   for(auto i: a)

       sum += i;

   ld av = sum / 20;

   int res = 0;

   for(auto i: a)

       if(i < av)

           res++;

   cout << res;

}

signed main() {

   ios_base::sync_with_stdio(false);

   cin.tie(nullptr);

   cout.tie(nullptr);

   for(int i = 0; i < 20; i++)

       cin >> a[i];

   solve();

}

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84