uses crt;var a:array[1..100] of integer; i,tbc,n:integer;Begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do tbc:=tbc+a[i]; writeln('Trung binh cong la: ',tbc/n:5:3); readln;end.
program trung_binh;
uses crt;
type kmang=array[1..1000] of integer;
var a:kmang;
n,i:integer;
{---Ham---}
function tbc(A:kmang; n:integer):real;
var j,t:integer;
begin
t:=0;
for j:=1 to n do t:=t+A[j];
tbc:=t/n;
end;
{---Chuong-trinh-chinh---}
clrscr;
write('Nhap N: '); readln(n);
for i:=1 to n do
write('A[',i,']= '); readln(A[i]);
write('Trung binh la: ',tbc(A,n):0:3);
readln;
end.
dòng điện là j dòng điện kim loại là j
Cho tam giác ABC cân tại A. Vẽ đường cao AM a) CM tam giác ABM = tam giác ACM Từ đó suy ra M là trung điểm BC b) Cho biết AC = 10cm, BC=12cm. Tính MC, AM. So sánh các góc của tam giác ACM
Trong 3 văn bản bài 1 bài học đường đời đầu tiên 2 Bức tranh của em gái tôi 3 buổi học cuối cùng Hãy chỉ ra 2 nhân vật mà em thích trong 3 van ban tren giai thich vi sao em thich nhan vat do
Giúp mik với ạ mik cần gấp ạ
1 nhà máy theo kế hoạch phải làm 8460 bánh xe. Nhà máy đó đã làm được 1/3 số bánh xe. Hỏi nhà máy còn phải làm bao nhiêu bánh xe theo kế hoạch
một xe máy đi từ a đến b với vận tốc 40km/h khi quay trở về người đó đi với vận tốc 30km/h thời gian cả đi lẫn về mất 10,5 giờ tính quãng đường ab
Hiện nay bệnh đường hô hấp cấp covid đg lan rộng ra toàn thế giới. em hãy vt bài văn nghị luận trình bày ý kiến của em Mình đnag cần gấp, mọi người giúp mình nhé Xin cảm ơn!
Sục vừa đủ 88 gam khí Co2 (đktc) vào 300ml dung dịch Ca(OH)2 thu được m( gam) kết tủa A; viết phương trình phản ứng B Tính khối lượng (m) của kết tủa thu được C; tính nồng độ CM của dung dịch Ca(OH)2 đã dùng biết phản ứng sảy ra hoàn toàn
khả năng giữ nước và chất dinh dưỡng của đất nhờ cái gì
1. Em hãy nêu đặc điểm phân biệt cây 1 lá mầm, 2 lá mầm
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
