** вход программе подаётся непустая последовательность целых чисел оканчивающаяся...

Question

На вход программе подаётся непустая последовательность целых чисел оканчивающаяся отрицательным числом. Написать программу, которая подсчитает среднее арифметическое этих чисел. Последнее введённое число участвует в получении среднего арифметического. Точность выводимого числа не задаётся. Входные данные 1 3 4 -1 Выходные данные 1.75 Помогите пожалуйста!!

Answer 1

sr = 0

a = 0

k = 0

while a >= 0:

 a = int(input())

 k += 1

 sr += a

print(sr/k)

Comments

Спасибо, но у меня ошибка компиляции

---

Питон - интерпретируемый язык

---

блин, мне на Паскаль надо

---

program gwr;
var sr,a,k :integer;
begin
sr := 0;
k := 0;
a := 0;
while a >= 0 do
begin
readln(a);
k:= k +1;
sr := sr + a;
end;
write(sr/k);
end.