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

Program SearchArray;
Uses
 CRT;
label 1;
Const
 MAXLENGTH=100;
var Ar:array [1..MAXLENGTH] of integer;
 i:1..MAXLENGTH;
 j:integer;
 n: integer;
begin
 clrscr;
 writeln('Введите размерность массива');
 readln(n);
 writeln('Введите ',n,' целых числа');
 i:=1;

 while i<=n do 
 begin
 read(Ar[i]);
 inc(i);
 end;

 writeln('Введите искомое значение:');
 Read(j);

 i:=1;

 while i<=n do
 begin
 if Ar[i]=j then
 begin
 writeln('Индекс искомого элемента=', i);
 goto 1;
 end;
 inc(i);
 end;

 writeln('Элемента с заданным');
 writeln('значением в массиве нет');
 1:writeln('Конец программы');
 readkey;
end.

Результат работы программы (пример):

Введите три целых числа
2 4 6
Введите искомое значение:
4
Индекс искомого элемента=2
Конец программы

Введите три целых числа
22 43 53
Введите искомое значение:
34
Элемента с заданным
значением в массиве нет
Конец программы

---