Дан список учащихся (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.
```
Надеюсь, эта информация поможет вам выполнить задание. Если у вас есть еще вопросы, пожалуйста, дайте знать.