Написать программу поиска любого элемента в массиве. для уточнения - на языке программирования, для программы паскаль.

Program pm; uses crt; var x: array[1..1000] of integer; k,a,b,i: integer; begin clrscr; write('введите кол-во элементов массива: '); read(k); writeln; write('введите диапазон значений заполнения(a-начальное значение, b-конечное): '); repeat read(a,b); until a< =b; writeln; randomize; for i: =1 to k do x[i]: =random(b-a+1)+a; writeln('ваш массив: '); for i: =1 to k do write(x[i]: 5); writeln; write('введите элемент поиска: '); read(b); a: =0; for i: =1 to k do if x[i]=b then a: =i; if a> 0 then writeln('элемент со значением ',b,' имеет индекс ',a) else writeln('элемента не существует! '); readkey; end.

Поиска индекса элемента по заданному значению или поиска значения по заданному индексу? напишу решение для обоих случаев. 1. поиск элемента по заданному индексу var n: longint; m: array[1..1000] of longint; begin writeln('введите индекс элемента массива'); read(n); writeln('элемент под номером ',n,' равен ',m[n]); end. 2. поиск индекса по заданному значению в массиве: var n,i: longint; m: array[1..1000] of longint; begin read(n); i: =1; while m[i]< > n do i: =i+1; writeln(m[i]); end.