Кто разберайеться помагите !

#include <iostream>

using namespace std;

int main ()

{

   int salary;

   int quantity = 0;

   double amount = 0;

   double average_salary = 0;

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

   {

       cin >> salary;

       if (salary >= 0 && salary <= 80)

       {

           amount += salary;

           quantity++;

       }

   }

   average_salary = amount / quantity;

   cout << (average_salary);

}

Объяснение:

#include <iostream>  // Библиотека ввода - вывода

using namespace std;  // Пространство имен

int main ()

{

   int salary;  // Создание целочисленной переменной, отвечающей за вводимые с клавиатуры числа

   int quantity = 0;  // Создание целочисленной переменной, хранящей количество работников, попадающих под условие

   double amount = 0;  // Создание вещественной переменной для нахождения суммы зарплат, попадающих под условие

   double average_salary = 0;  // Создание вещественной переменной, хранящей среднюю зарплату

   for (int i = 0; i < 5; i++)  // Цикл выполняется 5 раз

   {

       cin >> salary;  // Вводим число с клавиатуры

       if (salary >= 0 && salary <= 80)  // Если 0 <= значение переменной salary <= 80

       {

           amount += salary;  // Сумма = сумма + вводимое число

           quantity++;  // К переменной, хранящей количество, прибавляем единицу

       }

   }

   average_salary = amount / quantity;  // Вычисление средней зарплаты: средняя зарплата = сумма ÷ количество

   cout << average_salary;  // Вывод ответа

}

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.