Предмет: Информатика, автор: lardimm

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

Аноним: Выводить-то что?

Muxacekakbar: program durak:var
i, a, b, c, s :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.

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

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

Muxacekakbar: program durak; var
i, a, b, c, :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.

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

Muxacekakbar: 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.

Ответы

Автор ответа: Muxacekakbar

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.

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

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

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

Muxacekakbar: ой милый

Muxacekakbar: я перепутала

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

Muxacekakbar: прости <3

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

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

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

Автор ответа: Аноним

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

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

Аноним: и зачем это тут?

Muxacekakbar: ???

Muxacekakbar: это решение

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

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

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Биология, автор: litvinalina12309

Багатоклітинниа рослина

5 лет назад