Program HOC24;
var d,i,n: integer;
a: array[1..1000] of integer;
begin
write('Nhap do dai cua day: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 2=1 then d:=d+1;
write('Co tat ca ',d,' gia tri le');
readln
end.
Câu 2 Viết chương trình nhập một mảng số nguyên A có độ dài 50 phần tử với số lượng phần tử được nhập từ bàn phím. Thực hiện in ra màn hình các số lẻ có trong mảng.
viết chương trình sd biến mảng nhập từ bàn phím các phần tử dãy các số nguyên dương. In ra tổng các số lẻ
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Viết chương trình nhập vào một dãy số độ dài dãy số được nhập vào từ bàn phím sau đó in ra giá trị của các phần tử trong dãy đó
viết chương trình tính trung bình cộng của mộth dãy số .độ dài của dãy được nhập từ bàn phím (sử dụng biến mảng)
viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số
Viết chương trình nhập vào một dãy số a có n phần tử nhập vào từ bàn phím in ra màn hình các phần tử lớn hơn 5 của dãy số vừa nhập vào?
Viết chương trình nhập mảng A có N phần tử là số nguyên (N được nhập bất kì từ bàn phím). In ra màn hình mảng vừa nhập, mỗi phần tử cách nhau 1 dấu cách trống.
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
