viết chương trình tính trung bình cộng của n số nguyên x1,x2,x3,x4….xn với x1,x2,x3,x4…xn được nhập từ bàn phím
viết chương trình tính trung bình cộng của n số nguyên x1,x2,x3,x4-xn với x1,x2,x3,x4…xn được nhập từ bàn phím
By Valentina
By Valentina
viết chương trình tính trung bình cộng của n số nguyên x1,x2,x3,x4….xn với x1,x2,x3,x4…xn được nhập từ bàn phím
program Trung_binh;
uses crt;
var n,i,x,TB: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(x);
TB:=TB+x;
end;
write(‘Trung binh cong ‘,n,’ so nguyen = ‘,TB/n:2:1);
readln
End.
clrscr;
a:array[1..1000] of real;
var i,s,n,kq:integer;
begin
S:=0
readln(n);
begin
for i:=1 to n do
readln(a[i]);
s:=s+a[i];
end;
readln(s div n);
readln;
end.