uses crt;

var a : array [1 .. 100] of integer;

i, n, k, d : integer;

begin

clrscr;

d := 0;

write('Nhap so phan tu n = '); readln(n);

write('Nhap so nguyen k = '); readln(k);

write('Nhap day gom ', n ,' phan tu : ');

for i := 1 to n do begin read(a[i]);

if a[i] = k then d := d + 1; end;

writeln('k xuat hien ', d ,' lan');

write('Cac vi tri xuat hien k : ');

for i := 1 to n do if a[i] = k then

write(i,'   ');

readln

end.

program ct;
uses crt;
var n,k,i,dem,i2,i3: integer;
    a,ViTriK:array [1..24000] of integer;
begin
    clrscr;
    writeln('Nhap N'); readln(n);
    writeln('Nhap K'); readln(k);
    dem:=0; i2:=0;
    for i:=1 to n do
        begin
        write('Nhap a',i,': '); readln(a[i]);
        if a[i] = k then 
            begin
            dem:=dem+1;
            i2:=i2+1;
            ViTriK[i2]:=i;
            end;
        end;
    writeln('Phan tu = ',k,' xuat hien trong mang ',dem,' lan');
    write('Nam o vi tri: ');
    for i3:=1 to i2 do
        write(ViTriK[i3],' ');
    readln;
end.
_________________

#Duahauvn