Задание"Вычисление среднеарифметического последовательно вводимых чисел" Остановить обработку при"…вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число" Тип обраб. данных"Веществ." ...
Задание"Вычисление среднеарифметического последовательно вводимых чисел" Остановить обработку при"…вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число"
Тип обраб. данных"Веществ."
Помогите написать программу в паскале. очень срочно
Даю 79 баллов
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы