uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(dem);
readln;
end.
BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình phần tử có giá trị lớn nhất trong mảng. BT5: Viết chương trình nhập vào một mảng gồm n phần tử số thực. In ra màn hình chỉ số của phần tử nhỏ nhất trong mảng. BT6: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. Đếm xem trong mảng vừa nhập có bao nhiêu phần tử lẻ.
Viết phương trình nhập vào từ bàn phím mảng A gồm N phần tử nguyên đếm số lượng phần tử là số chẵn trong mảng ,tính tổng các phần tử đó
VCT nhập vào mảng B gồm 5 phần tử là số nguyên. In ra mảng vừa nhập. Tính và in ra số lượng số chẵn. Nhập vào K. Tìm vị trí K trong mảng. Sxếp mảng tăng dần.
VCT (Pascal) nhập vào mảng B gồm 5 phần tử là số nguyên. In ra mảng vừa nhập. Tính và in ra số lượng số chẵn. Nhập vào K. Tìm vị trí K trong mảng. Sxếp mảng tăng dần.
Vct nhập vào mảng B gồm 15 phần tử là số nguyên, in ra mảng vừa nhập. Tính và in ra số lượng số chẵn. Nhập vào K tìm vị trí K trong mảng. Sắp xếp mảng tăng dần
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.
