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

0 голосов
48 просмотров

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


Информатика (181 баллов) | 48 просмотров
0

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

Дан 1 ответ
0 голосов
Правильный ответ

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.

(3.5k баллов)
0

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