Question

Cho số nguyên dương N và dãy số nguyên khác nhau a1,a2,....,an và số nguyên k.Viết phương trình tìm vị trí xuất hiện của k trong dãy số trên. (sử dụng thuật toán tìm kiếm tuần tự)- Viết trên Pascal.

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.