Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó tìm các số bằng trung bình +
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó tìm các số bằng trung bình +
By Autumn
By Autumn
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó tìm các số bằng trung bình +
Uses crt;
Var a:array[1..1000]of integer;
i,n,tbc:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
Tbc:=0;
Writeln;
Write(‘ Trung binh cong cua mang do la: ‘);
For i:=1 to n do tbc:=tbc+a[i];
Write(tbc/n:3:2);
Readln;
End.
*Nhớ tick và chọn làm c/tr/loi hay nhất giúp mình với nhế! Thanks :33
* Hỏi gì thì comment bên dưới ạ 😀
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.