Написать программу, вычисляющую сумму и среднее арифметическое…

Question

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Вид экрана: Введите числа. Для завершения последовательности нажмите ноль. 45 23 15 0 введено чисел: 3 сумма чисел: 83 Среднее арифметическое: 27,67 С ЦИКЛОМ While do пожалуйста напишите а не с Repeat untill

Answer 1

41

flameshot

20 февраля 2023

program z8; uses crt; vari,k,n: byte; s: integer; sa: real; beginclrscr; i: =1; writeln ('Для завершения последовательности нажмите ноль'); while i>0 do beginread (i); write ('); {- нужен, чтобы числа нормально смотрелись}if i>0 then begink: =k+1; s: =s+i; end; end; sa: =s/k; write ('введено чисел: ',k,' сумма чисел: ',s,'Среднее арифметическое: ',sa: 4:2); readkeyend.

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

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

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

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

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