1. Для розв'язування яких задач опрацювання табличної величини можна використати наведені фрагменти? a) s := 0; for i:=1 to 10 do s := s + a[i];

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

}

N - количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin   read(x);   if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.