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