program vi_tri_bang_k;

uses crt;

var A:array[1..1000] of integer;

     n,i,d:integer;

begin

       clrscr;

       write('Nhap k: ');  readln(k);

       write('Nhap so luong phan tu n: ');  readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

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

              end;

       if d=0 then write('Khong co so hang nao cua day co gia tri bang ',k)

       else

              begin

                     write('Co ',d,' vi tri: ');

                     for i:=1 to n do

                            if A[i]=k then write(i,' ');

              end;

       readln;

end.

program pascal;

uses crt;

var A:array[1..300] of integer;

k,i,n:byte;

begin

clrscr;

writeln('nhap n =' );

readln(n);

for i:=1 to n do 

begin

writeln('nhap phan tu thu ',i);

realn(a[i]):

end;

writeln('nhap k = ');

readln(k);

for i:=1 to n do 

if A[i] = K then

writeln('chi so phan tu bang gia tri k la : ' , i) else

writeln('khong tim thay phan tu nao bang gia tri k');

readln

end.