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

var i, n: integer; sr: real; / / так как среднее арифметическое не всегда является целым числом, то отнесём данную переменную к типу real.

begin

n : = 0;

sr : = 0;

for i : = - 4 to 15 do

begin

n : = n + 1;

sr : = sr + i;

end;

sr : = sr / n;

writeln ('Среднее арифметическое целых чисел из отрезка [-4; 15] равно ', sr, '.');

end.