uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
write(dem);
readln;
end.
Viết chương trình nhập vào một mảng gồm n số nguyên và số nguyên k. Tìm và đưa ra màn hình:đếm xem trong mảng có bao nhiêu giá trị bằng k.
Theo pascal ạ!! giúp em nha <3 cảm ơn rất nhiều ạ
1. viết chương trình con nhập và xuất một dãy (mảng)số nguyên có n phần tử
2. nhập số k. Tính trung bình cộng của các phần tử trong dãy có giá trị nhỏ hơn hay bằng k
3. xuất và đếm các phần tử là số nguyên tố có trong dãy
viết chương trình nhập vào từ bàn phím mảng một chiều C, gồm N phần tử (N<=50).giá trị các phần tử là số nguyên dương , đưa ra màn hình vừa nhập và số lượng phần tử có giá trị chẵn
Viết chương trình nhập từ bàn phím số nguyên dương N(N=150) và dãy A gồm N số nguyên A¹ , A²,...An, có giá trị tuyệt đối không lớn hơn 900. Hãy cho biết dãy A có phải cấp số cộng hay không và thông báo kết quả ra màn hình
Viết chương trình nhập từ bàn phím 1 dãy số nguyên gồm 10 phần tử Đưa dãy vừa nhập rần hình Đưa các phần tử có giá trị chẵn ra màn hình
viết chương trình pascal, nhập vào dãy số nguyên ko có 100 phần tử. In dãy số đó ra màn hình cho biết trong dãy có bao nhiêu phần tử có giá trị chẵn và bao nhiêu phần tử có giá trị lẻ.
Viết chương trình nhập số n nguyên dương và dãy số thực B1, B2,... Bn. Và số thực x ( theo C++)
- Xuất dãy vừa nhập;
- Tìm giá trị lớn nhất trong dãy;
- Tính trung bình cộng các phần tử lớn hơn số thực x
