【入门】数组元素的查找

题目描述

给你m个整数，查找其中有无值为n的数，有则输出该数第一次出现的位置,没有则输出-1。

输入

第一行一个整数m：数的个数 ( 0 <= m <= 100 ) 第二行m个整数（空格隔开）( 这些数在 0-999999范围内 ) 第三行为要查找的数n

输出

n的位置或-1

样例输入

4 1 2 3 3 3

样例输出

3

提示

 

来源

 

 

[ 提交][ 状态][ 讨论版]

 

 

 

var
    n,i,k,p:longint;
    a: array[ 1.. 110]  of longint;
begin
    readln(n);
     for i:= 1  to n  do read(a[i]);
    readln(k);
     for i:= 1  to n  do
         if a[i]=k  then
         begin
            writeln(i);
            halt;
         end;
    writeln(- 1);
end.

 

 

转载于:https://www.cnblogs.com/qilinart/articles/3018404.html