Question

В 9А классе 28 человек написали контрольную работу по истории. Определить число двоек, троек, четверок и пятерок, полученных в результате написания работы, а также вывести средний балл среди мальчиков и среди девочек. Нужна программа в PASCAL.

Answer 1

var a, b, c,d,e,f,g : integer;

begin

  for var i := 1 to 28 do begin

     readln(a);

     if a = 2 then b := b + 1

     else if a = 3 then c := c + 1

     else if a = 4 then d := d + 1

     else if a = 5 then e := e + 1;

     if i <= 14 then f := f + a

     else g := g + a;

  end;

  f := round(f / 14);

  g := round(g / 14);

  writeln('Число двоек : ',b);

  writeln('Число троек : ',c);

  writeln('Число четвёрок : ',d);

  writeln('Число пятёрок : ',e);

  writeln('Число двоек : ',a);

  writeln('Средний балл среди мальчиков : ', f);

  writeln('Средний балл среди девочек :', g);

end.

Answer 2

Для решения данной задачи, вам потребуется написать программу на языке Pascal. В программе вы сможете определить количество двоек, троек, четверок и пятерок, полученных в результате написания контрольной работы по истории в 9А классе. Также вы сможете вывести средний балл среди мальчиков и среди девочек.

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

```pascal program Grades;

var boysCount, girlsCount, boysSum, girlsSum: integer; boysAverage, girlsAverage: real; twos, threes, fours, fives: integer; grade: integer;

begin boysCount := 0; girlsCount := 0; boysSum := 0; girlsSum := 0; twos := 0; threes := 0; fours := 0; fives := 0;

// Ввод оценок и подсчет суммы баллов для мальчиков и девочек writeln('Введите оценки учеников:'); for i := 1 to 28 do begin write('Оценка ученика ', i, ': '); readln(grade);

if i mod 2 = 0 then begin girlsCount := girlsCount + 1; girlsSum := girlsSum + grade; end else begin boysCount := boysCount + 1; boysSum := boysSum + grade; end;

// Подсчет количества двоек, троек, четверок и пятерок case grade of 2: twos := twos + 1; 3: threes := threes + 1; 4: fours := fours + 1; 5: fives := fives + 1; end; end;

// Вычисление среднего балла для мальчиков и девочек boysAverage := boysSum / boysCount; girlsAverage := girlsSum / girlsCount;

// В

Answer 3

Программа на языке Pascal для решения данной задачи может выглядеть следующим образом:

program Grades;

var
  i, grade, boysCount, girlsCount, boysSum, girlsSum: integer;
  boysAverage, girlsAverage: real;
  gradeCounts: array[2..5] of integer;

begin
  boysCount := 0;
  girlsCount := 0;
  boysSum := 0;
  girlsSum := 0;

for i := 2 to 5 do
    gradeCounts[i] := 0;

for i := 1 to 28 do
  begin
    writeln('Введите оценку (2, 3, 4 или 5) для студента ', i, ': ');
    readln(grade);

if grade >= 2 then
    begin
      if grade <= 5 then
      begin
        gradeCounts[grade] := gradeCounts[grade] + 1;

if i <= 14 then
        begin
          boysCount := boysCount + 1;
          boysSum := boysSum + grade;
        end
        else
        begin
          girlsCount := girlsCount + 1;
          girlsSum := girlsSum + grade;
        end;
      end
      else
      begin
        writeln('Некорректная оценка. Попробуйте еще раз.');
        i := i - 1;
      end;
    end
    else
    begin
      writeln('Некорректная оценка. Попробуйте еще раз.');
      i := i - 1;
    end;
  end;

writeln('Количество двоек: ', gradeCounts[2]);
  writeln('Количество троек: ', gradeCounts[3]);
  writeln('Количество четверок: ', gradeCounts[4]);
  writeln('Количество пятерок: ', gradeCounts[5]);

boysAverage := boysSum / boysCount;
  girlsAverage := girlsSum / girlsCount;

writeln('Средний балл среди мальчиков: ', boysAverage:0:2);
  writeln('Средний балл среди девочек: ', girlsAverage:0:2);

readln;
end.

Программа сначала объявляет необходимые переменные, такие как счетчики для количества мальчиков и девочек, суммы оценок мальчиков и девочек, счетчик для каждой оценки и переменные для хранения среднего балла мальчиков и девочек.

Затем программа выполняет два цикла: первый цикл считывает оценки для каждого студента и увеличивает соответствующий счетчик оценок, а также суммирует оценки мальчиков и девочек. Второй цикл выводит количество каждой оценки и находит средний балл для мальчиков и девочек.

Программа выводит результаты на экран.