Шатров
7 год назад
Задание"Вычисление среднеарифметического последовательно вводимых чисел" Остановить обработку при"…вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число"
Тип обраб. данных"Веществ."
Помогите написать программу в паскале. очень срочно
Даю 79 баллов
ОТВЕТЫ
Шапенков
Jul 16, 2019
Var a, sa: real; i, k: integer;
Begin
k:=0; sa:=0; i:=0;
While klt;3 do begin
Read (a);
If alt;0 then k:=k+1;
If klt;3 then begin
sa:=sa+a;
i:=i+1;
end
end;
sa:=sa/i;
writeln (sa)
end.
190
Смежные вопросы:
