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
2 câu trả lời
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.
