Question

Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k ? Если есть, то вывести номер первого его вхождения. Формат входных данных С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится число k, (−100≤k≤100). Формат выходных данных В качестве ответа выведите индекс искомого элемента. Если такого элемента нет, то вывести 0.

Answer 1

Var
  i, k, n: integer;
   a: array[1..10000]of integer;
 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
      write(i);
       exit;
     end;
   write('0');
 end.