var
a:array [1..32000] of integer;
i,s:integer;
begin
for i:= 1 to 20 do
write('a[',i,']='); readln(a[i]);
for i:= 1 to n do
if a[i] mod 2 = 0 then s:= s + a[i];
write(' tong so chan la : ',s);
readln;
end.
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 :(( )
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
Viết chương trình nhập vào một mảng N và một số nguyên m, cộng ngẫu nhiên các phần tử sao cho số lần cộng là ít nhất và tổng các phần tử lớn hơn hoặc bằng m. In ra màn hình số lần cộng (Tổng các phần tử trong mảng luôn lớn hơn hoặc bằng m)
Viết một phương trình nhập n nguyên dương và n số nguyên a1,a2...an
a) tính tổng các số chẵn của dãy
b)kiểm tra xem trong dãy phần tử coa giá trị bằng k hay ko có ghi YES ko có ghi NO sử dụng hàm
cho mảng A gồm n phần tử nguyên dương (n<=10^5, A(i)<=10^6) -nhập ngẫu nhiên mảng A
1. Tìm kiếm 3 phần tử lớn nhất trong mảng A
2. Tìm kiếm 100 phần tử nhỏ nhất trong mảng A
3. Tìm kiếm 10000 phần tử nhỏ nhất A
4. Sắp xếp tăng dần A
5. Tìm đoạn liên tục có tổng nhỏ hơn 10000 dài nhất
ai giúp mk với đag cần gấp ;))
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
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
Viết CT nhập vào 1 mảng và 1 số k, tìm và in ra vị trí bắt đầu, số phần tử của đoạn con có trung bình cộng = k
