Написать программу ввода целых чисел до тех пор…

Question

Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. Помогитепожалуйста!

Answer 1

73

cognak

09 апреля 2023

var sum,n,temp: integer; begin sum: =0; n: =0; readln (temp); while (temp<>0) do begin inc (n); sum: =sum+temp; readln (temp); end; writeln ('Sum=',sum,'; Ave=',sum/n) end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: