мне нужна программа которая находит среднее арифметическое чисел вводимых в консоль.


Аноним: Скольких чисел? Как узнать, что они уже закончились?
rus10011111: Количество чисел - n
Аноним: Ну тогда Вам написали решение. Могу написать в одну строчу на PascalABC.NET ))

Ответы

Ответ дал: rus10011111
0
var
n, t: integer;
a, s: real
begin
readln(n);
for t := 1 to n do
begin
readln(a);
s := s + a;
end;
writeln(s / n);
end.

dinor1310: на python
Аноним: Поздно! После того, как ответ дан, Ваши комментарии уже никого не интересуют.
rus10011111: Разве так трудно переписать это на питон?
Аноним: Нет, не трудно. Но такой вопрос может задать только человек, которому на чужой труд НАПЛЕВАТЬ. Т.е. он "не подумал" упомянуть язык, мало ли, все равно бесплатно, перепишут, чужой труд ведь бесплатен.
rus10011111: (то писал автор решения человеку, которому нужно решение на питоне)
Аноним: Тогда извините за "наезд". Достали реально уже эти "забыл, что надо на ... "
Ответ дал: AnonimusPro
0
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(ReadSeqInteger(ReadInteger).Average);
end.

Аноним: Тут лучше ReadSeqInteger - зачем Вам создавать массив?
Аноним: А ReadSeqInteger будет просто на выход передавать очередное введенное значение
dinor1310: на python
Аноним: "Здрасьти, я проснулся" ?
Вас заинтересует
3 года назад