Нужна блок-схема к программе program if17; var a, b, c: real; begin write('введите первое число: '); readln (a); write('введите второе число: '); readln (b); write('введите третье число: '); readln (c); if b=c then writeln('1'); if a=c then writeln('2'); if a=b then writeln('3'); end.

ответ приложил картинкой

#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;  // Вывод ответа

}

var

 n,k:integer;

 a:array of integer;

 s,k2:real;

begin

 

 {Ввод размера массива и элементов массива}

 while n<3 do begin

   write('Введите размер массива - '); readln(n);

   if n<3 then writeln('[Массив слишком короткий]');

 end;

 setLength(a,n);

 for var i1:=0 to n-1 do begin

   write('Введите ',i1+1,' элемент массива - '); readln(a[i1]);

 end;

 

 {Вычесление минимальной суммы трёх соседних элементов массива}

 s:=a[0]+a[1]+a[2];

 for var i2:=2 to n-2 do begin

   k:=a[i2-1]+a[i2]+a[i2+1];

   if s>k then s:=k;

 end;

 writeln('Минимальная сумма трёх соседних элементов = ',s);

 

 {Выполнение условия чётности и нечётности}

 k2:=s;

 while k2>=2 do begin

   k2:=k2-2;

 end;

 if k2=0 then s:=sqr(s)

 else s:=sqrt(s);

 write('ответ: ',s:0:3);

 

end.