Question

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

Срочно нужно 

Answer 1

uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
end.