Написать программу,в которой осуществляется ввод целых чисел(ввод осуществляетс?
Написать программу,в которой осуществляется ввод целых чисел(ввод осуществляетс?? до тех пор пока не будет введён ноль)и подсчёт суммы и среднего
арифметических введённых положительных чисел.используйте оператор repeat.
Гость
Ответ(ы) на вопрос:
Гость Var sum,n,ave:integer;
Begin
Repeat
Readln(n);
if (n>0) then
begin
sum:=sum+n;
ave:=ave+1;
end
Until (n=0);
Writeln('Сумма введённых положительных чисел: ',sum);
Writeln('Среднее арифметическое этих чискл: ',sum/ave)
End.
Не нашли ответ?
Похожие вопросы