Встроке заменить пробельные символы знаком звездочки ("*"). если встречается подряд несколько пробелов, то их следует заменить одним знаком "*", пробелы в начале и конце строки удалить. с# форма

/** 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();

}

Объяснение:

Есть ошибки. Не будет компилироваться. Будет ошибка выполнения в первой программе для отрицательных значений x.

Жирным выделены строчки, где есть ошибки.

1) Описание переменных следует писать так

Var x, y: real;

2) Пропущена точка с запятой

y:= sqrt(x);

3) Корень с отрицательного числа

y:= sqrt(x)

4) Во второй программе в объявлении переменных

Var x, y: real;

5) Пропущены знаки операций

y :=3 * x / (8 - x)

6) во второй программе, если знаменатель == 0, то после вывода - решений нет, следует вывод не инициализированного значения у.

Вывод значения y надо перенести выше, после вычисления y.

Program nl;

Var: x,y; real;

Begin

Readln (x);

if x >= 0 then

y:= x*x

Else

y:= sqrt(x)

Writeln(y);

End.

Program nl;

Var: x,y;real;

Begin

Readln(x);

if (8-x)<>0 then

y:=3x/8-x

Else

Writeln('решений нет');

Writeln(y);

End.

Так лучше будет (по возможности исправлено)

{ Тело первой программы }

Var x, y: real;

Begin

 Write ('Input x: ');

 Readln(x);

 if x >= 0 then

    y := x * x

 Else

    y := sqrt(abs(x));

 Writeln('y: ', y: 10: 3);

 Readln();   // удерживаем консоль

End.

{ Тело второй программы }

Var x, y: real;

Begin

 Write ('Input x: ');

 Readln(x);

 if (8-x) <> 0 then

   bеgin

    y:=3*x/(8-x);

     Writeln(' y=', y: 10: 2);

  end

 Else

   Writeln('решений нет');

  Readln();   // удерживаем консоль

End.