em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần trong dãy số đó
em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần trong dãy số đó
uses crt;
var i,n,x,dem:integer;
a:array[1..50] of integer;
begin
clrscr;
readln(n);
readln(x);
dem:=0;
for i:=1 to n do
if a[i] >= x then dem:=dem+1;
write(dem);
readln
end.
program dem_xuat_hien;
uses crt;
var A:array[1..10000] of integer;
n,i,x,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’ cua day: ‘); readln(A[i]);
end;
write(‘Day so nguyen do la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
writeln;
write(‘Nhap so nguyen x: ‘); readln(x);
d:=0;
for i:=1 to n do
if x=A[i] then d:=d+1;
write(‘So lan xuat hien cua ‘,x,’ la: ‘,d);
readln;
end.