1.
а)
var a, b: integer;
read(a, b);
writeln((a + b) / 2);
б)
var a, b, c, d, e: integer;
read(a, b,c, d, e);
writeln(a*a, b*b, c*c, d*d, e*e);
в) Не знаю это.
д) Решето Эратосфена.
2)
а)
array [1..n] of integer;
var c: integer;
c := 1;
read(n);
while //запускаем цикл для ввода значений массива и подсчёта произведения
read(a[n]);
c = c * a[n];
end;
writeln(c);
б)
array [1..n] of integer;
var c: integer;
read(a[0]);
c := a[0];
while //запускаем цикл для ввода значений массива и определения максимального элемента
read(a[n]);
if {
c > a[n];
} then c := a[n];
end;
writeln(c);
в)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел
if {
a[n] < 0;
} then c := c + 1;
end;
writeln(c);
г)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов
if {
a[n] = a[0];
} then c := c + 1;
end;
writeln(c);
#include <clocale>
using namespace std;
int main() {
setlocale(LC_ALL, "rus");
int a, b, c, min, max;
cout << "Введите первое число: ";
cin >> a;
cout << "Введите второе число: ";
cin >> b;
cout << "Введите третье число: ";
cin >> c;
cout << "\nСумма трех чисел равна: " << a + b + c ;
cout << "\nПроизведение трех чисел равно: " << a * b * c << endl;
if (a > b && a > c) max = a;
else if (b > a && b > c) max = b;
else if (c > a && c > b) max = c;
if (a < b && a < c) min = a;
else if (b < a && b < c) min = b;
else if (c < a && c < b) min = c;
cout << "\nМинимальное значение среди трех чисел: " << min;
cout << "\nМаксимальное значение среди трех чисел: " << max << endl;
cout << endl;
system("pause");
return 0;
}