С использованием вычислительной процедуры цикла «for» разработать алгоритмы и тексты программ по следующим заданиям.
1. Посчитать сумму четных и нечетных натуральных чисел в заданном диапазоне [a b]. Числа a, b вводятся с клавиатуры по запросу программы. В консоль выводятся в столбик сами четные и нечетные числа и их сумма с текстовыми комментариями.
2. Посчитать сумму остатков от деления натуральных чисел в заданном диапазоне [a b] на число с. Числа a, b, с вводятся с клавиатуры по запросу программы и могут быть дробными. В консоль выводятся в столбик сами остатки от деления и их сумма с текстовыми комментариями.
3. Вычислить факториал введенного числа. Само число вводится с клавиатуры по запросу программы. В консоль выводится само введенное число и его факториал с текстовыми комментариями.
4. Вывести таблицу значений функции y = -0.23x2 + x. Значения аргумента (x) задаются начальным и конечным числом, шагом изменения и вводятся с клавиатуры. Значения аргумента (x) могут быть целыми и дробными числами. В консоль выводится сами введенные числа и таблица вычисленных значений y

#include <iostream>

using namespace std;

int main() {

   int n;

   cin >> n;

   int mass[];

   for (int i = 0; i < n; i++) {

   cin >> mass[i];

   }

   int count_0 = 0, count_pol = 0, count_otr = 0;

   for (int i = 0; i < n; i++) {

   if (mass[i] == 0) {

       count_0++;

   }

   if (mass[i] > 0) {

       count_pol++;

   }

   if (mass[i] < 0) {

       count_otr++;

   }

   }

   cout << count_0 << " " << count_pol << " " <<count_otr;

   cout <<endl;

   system ("pause");

   return 0;

}

var

 i, n, ch, k1, k2, k3: Integer; //Объявляем переменные

begin // Начало блока  

 Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел

 Writeln('Введите числа: ');

 for i := 1 to n do // Начинаем цикл for от 1 до N                                  

 begin //Начало цикла

   Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры

   {Inc - счетчик  

   т.е если условие истинно с

   мы в переменную k1 записываем +1}

   if ch = 0 Then Inc(k1);  

   if ch > 0 Then Inc(k2);

   if ch < 0 Then Inc(k3);

 end; //Конец цикла

 {Выводим информацию о количестве чисел которые соответствуют условию}

 Writeln('Число нулей: ', k1);  

 Writeln('Число положительных: ', k2);

 Writeln('Число отрицательных: ', k3);

end. // Конец