Question

Написать программу, которая определяет среднюю успеваемость учеников в классе и подсчитывает число учеников учащихся выше среднего.PASCAL

Answer 1

Готово..............

Answer 2

Вот пример программы на языке Pascal, которая решает данную задачу:

program AverageGrade;
const
  MAX_STUDENTS = 100;
var
  grades: array[1..MAX_STUDENTS] of Integer;
  numStudents, i, sum, countAboveAverage: Integer;
  average: Real;
begin
  // Ввод количества учащихся в классе
  writeln('Введите количество учащихся в классе:');
  readln(numStudents);
  
  // Ввод оценок учащихся
  writeln('Введите оценки учащихся:');
  for i := 1 to numStudents do begin
    readln(grades[i]);
    sum := sum + grades[i];
  end;
  
  // Расчет средней оценки
  average := sum / numStudents;
  writeln('Средняя успеваемость класса:', average:0:2);
  
  // Подсчет числа учащихся со средней оценкой и выше
  countAboveAverage := 0;
  for i := 1 to numStudents do begin
    if grades[i] >= average then
      countAboveAverage := countAboveAverage + 1;
  end;
  
  writeln('Количество учащихся, у которых оценка выше или равна средней:', countAboveAverage);
end.

Программа сначала запрашивает у пользователя количество учащихся в классе. Затем она запрашивает оценки каждого ученика и подсчитывает их сумму. После этого программа вычисляет среднюю оценку путем деления суммы оценок на количество учеников и выводит ее на экран.

Далее, программа проходит по оценкам каждого ученика и сравнивает их с средней оценкой. Если оценка ученика равна или выше средней, счетчик учащихся со средней и выше оценкой увеличивается. В конце программа выводит количество учащихся со средней оценкой и выше.

Примечания: - В данном примере предполагается, что пользователь будет вводить корректные данные (количество учеников и оценки). Для более надежной программы стоит добавить проверки на корректность вводимых данных и обработку возможных ошибок. - Также нужно учесть, что в данной программе никак не обрабатываются случаи, когда количество учеников равно 0 или сумма оценок равна 0, чтобы избежать деления на ноль. Это также может потребовать дополнительной обработки и проверок.