Вычислите среднее арифметическое первых n-натуральных чисел

Question

Нужна программа на Паскале.. . Тема ЦИКЛЫ. 
У самой что-то вообще в голову ничего не лезет

Алла Герасимова · Accepted Answer

var 
 c, n: integer; 
 s: real; 
begin 
 write('n? '); 
 readln(n); 
 for c := 1 to n do s := s + c; 
 writeln('ср. ариф. : ', s / n:0:1); 
end.

Алёнка · Answer

А зачем тут циклы? (n+1)/2, всего-то.

Андрей Филимонов · Answer

Паскаль уже не помню, пишу на дельфийском (который тоже уже не помню) - дальше сам сымпровизируй: 
var SUMM:float; 
var SREDNEE:float; 
var i:integer; 
var n:integer; 
begin 
SUMM:=0; 
SREDNEE:=0; 
for i:=0 to n-1 do 
begin 
SUMM:=SUMM+CHISLO[n]; 
SREDNEE:=SUMM/(i+1); 
end; 
end.

Оля Вершинина · Answer

Два варианта: 
 
а) 
var n:longint; begin readln(n); writeln((n+1)/2:0:1); readln end. 
 
б) через совершенно не нужные тут циклы: 
var n,i,s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(s/n:0:1); readln end.