uses crt;
var x:array[1..100]of real;
n,i:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+x[i];
writeln(tb/n:4:2);
readln;
end.
Viết chương trình tính trung bình của N số thực x1,x2,x3,....xn. Các số N và x1,x2,x3....xn được nhập từ bàn phím ( Sử dụng While....do)
Giúp mình với nhé❤️🍀
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Viết chương trình tính và in ra tổng các số nguyên chia hết cho 3 trong dãy số nguyên X1, X2, X3, ...Xn biết dãy số X1, X2, X3, ... Xn được nhập từ bàn phím
Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.
Mọi người giúp em bài này với ạ!
viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím và in ra dãy số nguyên đó
20p nữa mình cần rồi. Mình cảm ơn ạ!
c1 Viết chương trình in ra màn hình trung bình cộng của 3 số dương a,b,c(a,b,c được nhập từ bàn phím)
c2 Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh a và b(được nhập từ bàn phím in ra kết quả màn hình)
Hộ mình với ạ đang cần gấp
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Câu 1 : viết chương trình tính tổng các số chẵn với n được nhập từ bàn phím ?
Câu 2 : viết chương trình tính tổng các số lẻ với n được nhập từ bàn phím ?
Viết chương trình tính trung bình cộng n số thực \(x_1,x_2,x_3,...,x_n\) (các số n và\(x_1,x_2,x_3,...,x_n\) được nhập vào từ bàn phím). Sử dụng lệnh For...do.
