Câu hỏi của Đặng Huy Anh

Question

VCT nhập vào một mảng n phần tử tính trung bình cộng các phần tử có trong mảng

Thảo Hoàng Minh · Accepted Answer

Program tinhtb;
Uses crt;
Var N, Dem: integer;
X, TB: real;
Begin
Clrscr;
Dem:=0;
TB:=0;
Writeln('Nhap cac so can tinh N = ');
Readln(n);
While Dem<0 do
Begin
dem:=Dem+1;
Writeln('Nhap so Thu ',Dem,'=');
Readln(X);
tb:= TB+x;
end;
TB:= TB/n;
Writeln ('TB cua ',N,' so la = ', TB:10:3);
Readln,
End.Câu trả lời: Program tinhtb;
Uses crt;
Var N, Dem: integer;
X, TB: real;
Begin
Clrscr;
Dem:=0;
TB:=0;
Writeln('Nhap cac so can tinh N = ');
Readln(n);
While Dem<0 do
Begin
dem:=Dem+1;
Writeln('Nhap so Thu ',Dem,'=');
Readln(X);
tb:= TB+x;
end;
TB:= TB/n;
Writeln ('TB cua ',N,' so la = ', TB:10:3);
Readln,
End.

Khoá học trên OLM (olm.vn)

Khoá học trên OLM (olm.vn)