Tạo mảng A gồm n (n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300 tìm và đưa ra vị trí các phần tử bằng k với k là số nguyên nhập từ bàn phím
uses crt; var i,n:byte; k:integer; a:array[1..100] of integer; begin clrscr; readln(n,k); for i:=1 to n do read(a[i]); readln; for i:=1 to n do if a[i]=k then write(i,' '); readln; end.
uses crt; var a:array[1..100]of longint; n,i,k:longint; begin clrscr; read(n,k); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]=k then write(i,' '); readln; readln; end.