Only Pascal. Задание: Мне нужно написать прог-у для вычисления средней оценки исходя из...

Question

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

Comments

Выводить-то что?

---

program durak:vari, a, b, c, s :integer;beginreadln(a, b, c);writeln((a + b + c) / 3 );end.

---

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.

---

А если оценок НЕ ТРИ?

---

program durak; vari, a, b, c, :integer;beginreadln(a, b, c);writeln((a + b + c) / 3 );end.

---

после програм и durak, точку с запятой

---

да чцукщзаоьука

Answer 1

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

Comments

Понятно, что количество оценок может быть любым. Разделять одним или более пробелом.

---

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

---

это решение

---

???

---

и зачем это тут?

---

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

Answer 2

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.

Comments

я перепутала

---

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

---

В ШКОЛАХ, НА СТАНДАРТАХ, СТОИТ АБС

---

Это к автору вопроса. А Вы, если на Паскале ответ даете, который не на любом паскале допустим, указывайте версию.

---

В школах что угодно стоит, увы. И уберите капс.

---

ой милый

---

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

---

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

---

прости <3

---

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