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,d,x:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n Do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
write(‘Day so nguyen do: ‘);
for i:=1 to n Do write(a[i],’ ‘); writeln;
write(‘Nhap x: ‘);readln(x);
for i:=1 to n do
if a[i]=x then inc(d);
writeln(‘x xuat hien ‘,d,’ lan trong day’);
readln
end.
program in_va_dem;
uses crt;
var A:array[1..1000] of integer;
n,i,x,d:integer;
begin
clrscr;
write(‘Nhap so nguyen n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘Day so la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
write(‘Nhap x: ‘); readln(x);
d:=0;
for i:=1 to n do
if A[i]=x then d:=d+1;
writeln(‘So nguyen ‘,x,’ xuat hien ‘,d,’ lan’);
readln;
end.