Program HOC24;
var tbc: real;
d,n,i: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap so nguyen N : '); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]>0 then
begin
d:=d+1;
t:=t+a[i];
end;
end;
tbc:=t/d;
write('Trung binh cong cac so duong la : ',tbc:1:2);
readln
end.
Bài 1: Viết chương trình nhập số nguyên dương N a) Tính tổng các phần tử là các số chia hết cho 3 và nhỏ hơn N b) Tính trung bình cộng các phần tử là các số chia hết cho 3 và nhỏ hơn N
Nhập vào bàn phím mảng 1 chiều gồm N số nguyên:
1.In ra màn hình giá trị lớn nhất
2. Tính tổng các số chẵn các số chẵn có trong mảng
3. Thông báo có bao nhiêu số âm trong mảng
4. Tính tích các phần tử dương và chia hết cho 3
( mik cần gấp lém :(( )
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
tính tổng S= 1+2+3+....+n, biết n là số nguyên dương được nhập từ bàn phím
giúp em ới ạ
Viết chương trình nhập từ bàn phím số nguyên n đưa ra màn hình tổng các số tự nhiên nhỏ hơn n và chia hết cho 2 và chia hết cho 3.
viết phương trình python tìm nghiệp của phương trình ax+b=0 với a, b là hai số nguyên được nhập từ bàn phím. In ra " phương trình vô số nghiệm", " phương trình vô nghiệm" cho các trường hợp tương ứng. Nếu có nghiệm thì lấy 4 chữ số sau dấu phẩy
viết chương trình nhập số nguyên dương n và danh sách gồm n số nguyên a0, a1,....an-1. Hãy tính tổng các số nguyên lẻ trong dãy ?
mn giúp em với ạ em đang gấp :(
Viết chương trình tính chu vi hình chữ nhật với 2 cạnh là 2 số thực nhập từ bàn phím. Kết quả lấy 3 chữ số thập phân?
