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.