Lời giải:
program hotrotinhoc;
var i,n,t: integer;
a: array[1..32000] of integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];
write(t);
readln
end.
Cho mảng A có n phần tử dùng chương trả con thực hiện một số yêu cầu như sau: 1. Viết chương trình nhập mảng A 2. Tính tổng số chẵn, lẻ 3. Tính có bao nhiêu phần tử chia hết cho k.
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu
Viết chương trình (sử dụng chương trình con) hãy nhập một dãy số nguyên dương từ bàn phím sau đó tính và hiển thị lên màn hình tổng của các số chẵn
Viết chương trình nhập vào mảng một chiều không quá 50 phần tử . Đếm các phần tử là số chẵn có trong máy
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
viết chương trình tính chỉnh hợp k phần tử của n và tổ hợp k phần tử của n bằng cách sử dụng chương trình con có tên là Giaithua.
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5.
Viết chương trình ( sử dụng chương trình con) nhập một dãy n số nguyên dương. Tính tổng các số lẻ trong dãy.
1) viết chương trình có sử dụng chương trình con để thực hiện yêu cầu sau:
a) thủ tục nhập vào số nguyên N phần tử (N<=100)
b) hàm tính tổng các số chẵn
c) gọi chương trình con để thực hiện và in kết quả tính tổng các số chẵn ra màn hình
