End.
3. решить одну из предложенного ниже перечня, протестировать,
исправить ошибки, сохранить конечную программу в личной папке под названием
massiv2_n, указав вместо n номер
в таблице а хранятся данные о количестве учеников в классах (a[1]- количество учеников
первом классе, а(2) - во втором и т.д.)
program n_3;
vark, integer;
а: array[1.1] of integer;
begin
al] = 20; a[2] : = 25; a[3] : = 19; a[4] : = 25; a[5] : = 26; a[6] = 22;
а(7)= 24; a(8) = 28; a[9] : = 26; а[10] : = 21; a ] : = 27;
напишите программу, вычислююшую
1) суоrу четных элементов массива, больших 25;
2) среднее арифметическое всех элементов массика;
3) количество нечетных элементов массива, меньших 26
4) количество элементов массива, больших 20 и меньших 28.
5) произведение элементов массива, больших 22 и меньших 25;
6) количество элементов массива, равных наибольшеrу элементу массива

Вообще надо думать своей головой ты же учишься в ШП)Hо если ты хочешь тупо все списывать и тебя заставляют их выполнять держи, мне не жалко:a = input()

d = len(a)

print(a[0:1].upper() + a[1:d].lower())

Объяснение(Если ты это и вправду читаешь, то тебе уже интересно, как это работает, это уже хорошо):

Запрашиваем переменную a

Переменная d = сколько в переменной a символов

выводим(от переменной a первый символ капсом + присоединяем остальное слово мал.буквами

Все элементарно и понятно! Учись, кхм.. То есть списывай на здоровье!

program znanija;

begin

 var x := readinteger();

 var y := readinteger();

 var z := readinteger();

 writeln('Сумма = ', x + y + z);

 writeln('Произведение = ', x * y * z);

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));

 writeln('Среднее арифметическое = ', (x + y + z) / 3);

end.

Объяснение:

Функция sqr() возводит число в квадрат.

Среднее арифметическое = сумма чисел ÷ количество чисел

program znanija;  // Название программы

begin  // Начало программы

 var x := readinteger();  // Объявление переменной x и считывание целочисленного числа с клавиатуры

 var y := readinteger();  // Объявление переменной y и считывание целочисленного числа с клавиатуры

 var z := readinteger();  // Объявление переменной z и считывание целочисленного числа с клавиатуры

 writeln('Сумма = ', x + y + z);  // Вывод суммы

 writeln('Произведение = ', x * y * z);  // Вывод произведения

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));  // Вывод суммы квадратов

 writeln('Среднее арифметическое = ', (x + y + z) / 3);  // Вывод среднего арифметического

end. // Конец программы