Question

Viết chương trình nhập n số nguyên và tính trung bình cộng

Answer 1

var n,i,s,tb:longint;

begin

read(n);

s:=0;

for i:=1 to n do s:=s+i;

for i:=1 to n do tb:=s/n;

write(n);

end.

mk cũng chưa kiểm tra nên k biết đúng không ? bạn kiểm tra dùm mk nha!

Answer 2

var n,i,s,tb:longint;

begin

read(n);

s:=0;

for i:=1 to n do s:=s+i;

for i:=1 to n do tb:=s/n;

write(n);

end.