Uses crt; Var n,i:integer; da,x: longint; Begin Clrscr; Writeln('Nhap N vao day: '); Readln(n); i:= 0; da:= 0; While i < n do Begin i:= i + 1; Writeln('Nhap X ',i,': '); Readln(x); da:= da + x; End; Writeln('Trung binh cong cua ',n,' so nguyen la: ',da / n:0:2); Readln End. *Nhớ tick và cho câu trả lời của mình là hay nhất giúp nhá! Thanks so much :33 p/s: Hỏi và đáp, comment để giải đáp!
