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

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.