Задание:
Re: составьте программу вычисления среднего арифметического целых чисел из отрезка[-4; 15]
Решение:
var i,s,k: integer; beginfor i: =-4 to -15 do begin inc (s,i); inc (k) end; write ('Ср арифм=',s/k) end.
Знаете другой ответ?
Re: составьте программу вычисления среднего арифметического целых чисел из отрезка[-4; 15]
var i,s,k: integer; beginfor i: =-4 to -15 do begin inc (s,i); inc (k) end; write ('Ср арифм=',s/k) end.
Знаете другой ответ?