Question

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

Answer 1

// 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

Answer 2

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.