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

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.

???

это решение

Зачем мне Ваше решение под моим ответом?

Это уже не решение, а спам

я думала, я с автрм))0)

прости <3

Свой пол? Вы то в женском роде пишете (перепуталА), то в мужском (не кинул). ВЫ бы уж определились...

это уже не ко мне вопросы

Так это еще и не Вы пишете...барабашка завелся в клоавиатуре?

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.

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.332. Если промежуточные не нужныbegin  Writeln('Средний балл ',ReadlnString.ToIntegers.Average:0:2)end.Пример4 5 4Средний балл 4.33