Дан список учащихся (15 человек), их оценки за экзамен по математике и русскому языку. Составить програмиу которая
выводит:
1) средний оценок по математике и средний оценок по русскому языку;
2) Выводит количество учащихся, которые сдали математикуна 4и 5 и русский на 4 и 5 (отдельно по каждому
предмету)
3) Выводит на экран фамилии учащихся, которые на экзамене по математике получили 3.

Разбор задания: Рассмотрим, сколько массивов будут участвовать в этой программе:
фамилии учащихся (символьный тил элементов),
оценки по математике (целый тип),
оценки по русскому языку (целый числовой тип). Всего 3 массива. Опишем их в программе:
program exam;
var f:array[1..15] of string;
m: array[1..15] of integer;
r: array[1..15] of integer;
i, k: integer;
Begin
writeln('Введите фамилию учащегося, его оценку по математике и русскому языку');
For i:=1 to 15 do readln(f[i],m[i],r[i]);


Данная часть программы описывает все массивы и переменные, которые участвуют в программе (М средний по
математике, п- средний по русскому языку). Также вводятся элементы 3 массивов: фамилия, оценка по математике
и оценка по русскому.

Добрый день, давайте разберем задание по шагам.

1) Чтобы вычислить средний балл по математике, нам нужно просуммировать все оценки по математике и поделить на количество учащихся. Аналогично, чтобы вычислить средний балл по русскому языку, мы должны просуммировать все оценки по этому предмету и разделить на количество учащихся.

Программа для этого может выглядеть следующим образом:

```
var
f: array[1..15] of string; // массив для фамилий учащихся
m: array[1..15] of integer; // массив для оценок по математике
r: array[1..15] of integer; // массив для оценок по русскому языку
i: integer; // счетчик для цикла
total_math, total_russian: integer; // переменные для суммы оценок
average_math, average_russian: real; // переменные для среднего балла


BEGIN
// выводим приглашение к вводу
writeln('Введите фамилию учащегося, его оценку по математике и русскому языку');

// считываем фамилии и оценки для каждого учащегося
FOR i := 1 TO 15 DO
BEGIN
readln(f[i], m[i], r[i]);

// суммируем оценки для каждого предмета
total_math := total_math + m[i];
total_russian := total_russian + r[i];
END;

// вычисляем средний балл для каждого предмета
average_math := total_math / 15;
average_russian := total_russian / 15;

// выводим средний балл по математике и русскому языку
writeln('Средний балл по математике: ', average_math:0:2);
writeln('Средний балл по русскому языку: ', average_russian:0:2);

// ...
// продолжаем с решением остальных пунктов задания
END.
```

2) Чтобы выяснить, сколько учащихся сдали математику на 4 и 5, а также русский язык на 4 и 5, нам нужно пройти по массивам с оценками и подсчитать такие случаи.

Программа для этого может выглядеть следующим образом:

```
var
count_math_high: integer; // переменная для количества учащихся с высоким баллом по математике
count_russian_high: integer; // переменная для количества учащихся с высоким баллом по русскому языку
i: integer; // счетчик для цикла

BEGIN
// обнуляем счетчики
count_math_high := 0;
count_russian_high := 0;

// проходим по массивам с оценками
FOR i := 1 TO 15 DO
BEGIN
// проверяем оценку по математике
IF (m[i] = 4) OR (m[i] = 5) THEN
count_math_high := count_math_high + 1;

// проверяем оценку по русскому языку
IF (r[i] = 4) OR (r[i] = 5) THEN
count_russian_high := count_russian_high + 1;
END;

// выводим результаты
writeln('Количество учащихся с высоким баллом по математике: ', count_math_high);
writeln('Количество учащихся с высоким баллом по русскому языку: ', count_russian_high);

// ...
// продолжаем с решением остальных пунктов задания
END.
```

3) Чтобы вывести фамилии учащихся, которые получили на экзамене по математике оценку 3, нам нужно также пройти по массиву с оценками и вывести соответствующие фамилии.

Программа для этого может выглядеть следующим образом:

```
var
i: integer; // счетчик для цикла

BEGIN
// проходим по массиву с оценками по математике
FOR i := 1 TO 15 DO
BEGIN
// проверяем оценку по математике
IF m[i] = 3 THEN
writeln('Фамилия учащегося с оценкой 3 по математике: ', f[i]);
END;

// ...
// продолжаем с решением остальных пунктов задания
END.
```

Надеюсь, эта информация поможет вам выполнить задание. Если у вас есть еще вопросы, пожалуйста, дайте знать.