Var z:array[1..1000] of real;
tbc : real; n,i : longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('tbc',i,'='),
readln(z[i]);
tbc:=tbc + z[i];
End, writeln(tbc/n:8:2);
End.
Bạn chạy thử xem được chưa nhé!
Viết chương trình nhập vào dãy số gồm n số nguyên và in ra màn hình Trung bình cộng các số có trong mảng
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
viết chương trình sử dụng biến mảng để nhập một dãy gồm N số nguyên từ bàn phím.In ra màn hình các số nguyên đó. Tính tổng và trung bình cộng của N số đó.
Giúp mình với ạ
Viết chương trình nhập vào máy 1 mảng số nguyên bất kì, tính số trung bình cộng của mảng đó.
Giúp mình với, mai mình thi ròi!
Viết chương trình nhập vào một mảng gồm n số tự nhiên, in màn hình trung bình các số chẵn
1)viết chương trình nhập vào mảng Diem (lưu điểm kiểm tra giữa HKII của lớp) với n phần tử được nhập từ bàn phím)
in ra mảng đó và tính trung bình cộng điểm giữa HKII của lớp đó và in ra các điểm nhỏ hơn 6,5
2) viết chương trình nhập mảng Diem (lưu điểm kiểm tra giữa HKII của 1 lớp)
in ra điểm cao nhất và vị trí của giá trị đó. Sau đó tính tổng của mảng đó.
Biết chương trình nhập vào 1 bến mảng gồm n số nguyên xuất ra màn hình độ dài và giá trị của các phần tử trong mảng đó
Viết Chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất