Question

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

Answer 1

VAR i,s:integer;

Begin

  for i:= 1 to 100 do

    s:= s+ i;

 writeln(s/100);

End.