a)
var
sum : integer;
begin
for var i := 1 to 1000 do begin
sum += i;
end;
writeln('среднее арифметическое диапозона 1..1000 равно ', sum/1000);
end.
b)
var
b, sum : integer;
begin
repeat
write('введите конец диапозрна b=');
readln(b);
if b < 100 then writeln('b должно быть больше либо равно 100');
until b >= 100;
for var i := 100 to b do sum += i;
writeln('среднее арифметическое диапозона 100..', b,' равно ', sum/(b-99));
end.
а это программа которая считает в заданном диапозоне и решает обе задачи
var
a, b, sum : integer;
s : real;
begin
repeat
write('введите начало диапозона a=');
readln(a);
write('введите конец диапозрна b=');
readln(b);
if b < a then writeln('b должно быть больше a');
until b > a;
for var i := a to b do sum += i;
s := sum/(b-a+1);
writeln('среднее арифметическое диапозона ',a, '..', b, ' равно ', s);
end.