В классе 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.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('->',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.Пример-> 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