Задание"Вычисление среднеарифметического последовательно вводимых чисел" Остановить...

Question

Задание"Вычисление среднеарифметического последовательно вводимых чисел" Остановить обработку при"…вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число"
Тип обраб. данных"Веществ."
Помогите написать программу в паскале. очень срочно
Даю 79 баллов

Comments

Может кто-нибудь саму написанную программу скинуть?

Answer 1

Var a, sa: real; i, k: integer; Begin k:=0; sa:=0; i:=0; While k<3 do begin Read (a); If a<0 then k:=k+1; If k<3 then begin sa:=sa+a; i:=i+1; end end; sa:=sa/i; writeln (sa) end.

Comments

С телефона могла опечататься... Проверь , должна работать