Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100

Вопрос от посетителя

Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100

Отвечает Илюха:

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.