Only pascal. : мне нужно написать прог-у для вычисления средней оценки исходя из существующих. есть три основных действия для вычисления этого: 1) посчитать кол-во оценок(пример: 2,3,4 ,т.е кол-во оценок 3) 2) вычислить их сумму(исходя из того же примера, т.е 2+3+4 = 9 - это сумма) 3) и наконец сама формула: сумму делим на кол-во (т.е 9/3=3) оставьте два числа после запятой конкретные примеры: искусство: 4,5,4 -считается сумма чисел =13 -считается кол-во чисел=3 -рез-ат: 13/3 = 4.33

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если нужны промежуточные данные

begin
  var a:=ReadlnString.ToIntegers;
  var n:=a.Count; Writeln('Количество оценок ',n);
  var s:=a.Sum; Writeln('Сумма оценок ',s);
  var m:=a.Average; Writeln('Средний ',m:0:2)
end.

Пример
4 5 4
Количество оценок 3
Сумма оценок 13
Средний 4.33

2. Если промежуточные не нужны

begin
  Writeln('Средний ',ReadlnString.ToIntegers.Average:0:2)
end.

Пример
4 5 4
Средний 4.33

Program ear;var n,i,s,k:integer;beginwriteln('Введите количество чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(k);s:=s+k;end;writeln('Среднее арифметическое =',s/n:5:2);end.