Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('n='); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 3=0 then t:=t+a[i];
end;
writeln('Tong cac gia tri phan tu chia het cho 3 la : ',t);
for i:=1 to n do write(a[i],' ');
readln
end.
viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10
A, in mảng vừa nhập ra màn hình
B, tính tổng các phần tử có giá trị chẵn, in kết qua ra màn hình
C, đếm số lượng các phần tử chia hết cho 3
D, tính trung bình cộng các số có giá trị lẻ
E, in ra màn hình các phần tử là số nguyên tố
mong được giúp đỡ
viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10
A, in mảng vừa nhập ra màn hình
B, tính tổng các phần tử của mảng, in kết qua ra màn hình
C, đếm số lượng các phần tử có giá trị dương
D, tính trung bình cộng các số có giá trị chẵn
E, in ra màn hình các phần tử là số hoàn hảo
Giúp mình với ạ
viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)
a. Đếm số lượng phần tử dương cho kết quả ra màn hình
b. Tính tổng các phần tử dương trong mảng
c. Tính trung bình các phần tử trong mảng
d. Tính trung bình các phần tử dương trong mảng
e. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phím
f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả vị trí phần tử =k đó.
g. Đếm số lượng phần tử là nguyên tố trong mảng.
h. Kiểm tra mảng vừa nhập có phải là cấp số cộng hay không?
i. Sắp xếp mảng theo thứ tự tăng dần các phần tử và hiển thị ra màn hình mảng tăng đó
Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, hiển thị mảng đã nhập ra màn hình, tính tổng mảng.
Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:
1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?
2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?
Cho mảng A gồm n phần tử là các số nguyên a, Nhập vào mảng A từ bàn phím b, tính tổng của các phần tử chẵn c, tính tổng của các phần tử lẻ d, đếm xem có bao nhiêu phần tử trong dãy chia hết cho 3
Nhập từ bàn phím mảng a có n số nguyên. In ra màn hình mảng a vừa nhập, in phần tử lớn nhất, in phần tử nhỏ nhất của mảng, in vị trí phần tử lớn nhất, in vị trí phần tử nhỏ nhất của mảng.
Viết chương trình nhập vào mảng A gồm N ( n<=100 )số nguyên. Thực hiện yêu cầu sau. ( 5 điểm ).
a.Tính trung bình cộng các phần tử chia hết cho 3 VÀ 5 trong mảng ( 2 điểm )
b. In ra các phần tử chia hết cho M trong mảng và tính tổng các phần tử chia hết cho M, với M được nhập từ bản phím ( 3 điểm )
Lưu ý: Chương trình chạy được, trình bày tốt về cản lề, xử lý yêu cầu bài toán và in kết quả đúng 1 điểm).
