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

Answer 1

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.

Answer 2

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

Answer 3

прости <3

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

???

Answer 10

это решение

Answer 11

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

Answer 12

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