Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент,...

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.

Comments

var
i, k, n, c: integer;
a: array[1..10000]of integer;

begin
c := 0;
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);
c := c + 1;
end;
if(c = 0) then write('0');
end.