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

var i, n: integer; sr: real; // так как среднее арифметическое не всегда является целым числом, то отнесём данную переменную к типу real.beginn := 0;sr := 0;for i := -4 to 15 dobeginn := n + 1;sr := sr + i;end;sr := sr / n;writeln ( \'Среднее арифметическое целых чисел из отрезка [-4; 15] равно \', sr , \'.\' );end.