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

Ответы 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.
    • Автор:

      jaime456
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years