Question

Re: составьте программу вычисления среднего арифметического целых чисел из отрезка [-4;15]

Answer 1

var i,s,k:integer;

begin

for i:=-4 to -15 do begin

    inc(s,i); inc(k)

end;

write('Ср арифм = ',s/k)

end.