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

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(-gt;,35);
  var s:=0;
  var k:=0;
  for var i:=0 to 34 do begin
    s+=a[i];
    if a[i]=5 then k+=1
    end;
  Writeln(Средний балл ,s/35:4:2);
  Writeln(Количество пятерок- ,k)
end.

Пример
-gt; 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний балл 3.34
Количество пятерок- 5

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.