Question

В классе 35 человек. Последовательно вводятся оценки учеников за контрольную работу. Найдите средний балл и количество пятёрок. PASCAL С помощью алгоритма for ... to ... do

Answer 1

Var
  eval: array[1..35] of byte;
  i, good: integer;
  sr: real;

begin
  good := 0;sr := 0;
  for i := 1 to 35 do
  begin
    write(i, '.) ');readln(eval[i]);
    sr := sr + eval[i];
    if eval[i] = 5 then inc(good);
  end;
  sr := sr / 35;
  writeln('Всего пятерок: ', good);
  writeln('Средний бал: ', sr:0:2);
end.

Answer 2

Для решения данной задачи, мы можем использовать алгоритм `for...to...do` в языке программирования Pascal. Давайте посмотрим, как это можно сделать.

Алгоритм:

1. Инициализируем переменные `сумма` и `количество_пятёрок` со значением 0. 2. Используем цикл `for` для последовательного ввода оценок учеников. 3. Внутри цикла: - Считываем оценку ученика. - Добавляем оценку к переменной `сумма`. - Если оценка равна 5, увеличиваем переменную `количество_пятёрок` на 1. 4. Вычисляем средний балл, разделив сумму оценок на количество учеников. 5. Выводим средний балл и количество пятёрок.

Пример кода на Pascal:

```pascal program AverageGrade;

var grade, sum, count, fiveCount: integer; average: real;

begin sum := 0; count := 0; fiveCount := 0;

for count := 1 to 35 do begin writeln('Введите оценку ученика ', count, ': '); readln(grade);

sum := sum + grade;

if grade = 5 then fiveCount := fiveCount + 1; end;

average := sum / 35;

writeln('Средний балл: ', average:0:2); writeln('Количество пятёрок: ', fiveCount); end. ```

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

Примечание: При решении данной задачи, я использовал свои знания о языке программирования Pascal и алгоритмах. Информация о среднем балле и количестве пятёрок в классе не была найдена в предоставленных поисковых результатах.