Nhập vào dãy A gồm N số nguyên từ a1,a2,...,an rồi tính trung bình cộng các số trong dãy
2 câu trả lời
Program tbc;
Uses crt;
Var A:array[1..200] of integer;
N,i,S:integer;
Begin
Clrscr;
Write('N=');
Readln(N);
S:=0;
For i:=1 to N do
Begin
Write('A[',i,']=');
Readln(A[i]);
S:=S+A[i];
End;
Writeln('Trung binh cong cua cac so trong day:',S/n);
Readln
End.
var
n,s,i:real;
begin
readlṇ(n);
s:=0;d:=0;
for i:=1 to n do
begin
d:=d+1;
s:=(s+i)/d;
end;
writeln(s);
readln;
end.