PASCAL.дано n чисел: вычислить среднее арифметическое

Question

дано n чисел: вычислить среднее арифметическое

element_44 · Accepted Answer

uses crt; 
var 
a,b,c,d:byte 
begin 
Writeln('Введите 3 числа через пробел') 
readln(a,b,c) 
d:=(a+b+c) div 3 
Writeln('Среднее арифметическое ', d) 
Readln 
End.

sowelu_5 · Answer

Uses crt; 
var n,i,S,M:integer; 
Begin 
clrscr; 
S:=0; 
readln(n); 
for i:=1 to n do 
begin 
read(M); 
S:=S+M; 
end; 
S:=S/n; //среднее арифметическое 
writeln(S); 
readln; 
End.

f_f_559 · Answer

for i:=1 to n do 
begin 
read(x); 
s := s + x; 
end; 
writeln(s/n);

hicks_1 · Answer

сложи все числа и подели на n