Question

viết chương trình dãy A gồm N số nguyên khác nhau và 1 số nguyên K cho biết vị trí phần tử có giá trị bằng K trong dãy ( nếu có )

Answer 1

uses crt;

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

i,n,k,vt:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------}
for i:=1 to n do write(a[i]:4);
{---------------------------------------------------}

writeln;

write('nhap k='); readln(k);

for i:=1 to n do

if a[i]=k then vt:=i;

writeln('vi tri xuat hien cua ',k,' trong day so la vi tri thu: ',vt);

readln;

end.