Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 36.
Вход:
1
2
3
4
5
Результат: A[3]=3
program arrSearch;
const N = 5;
var A: array[1..N] of integer;
i, X, nX: integer;
begin
writeln ( 'Введите элементы массива:' );
for i:=1 to N do
read ( A[i] );
write ( 'Что ищем? ' );
read ( X );
nX:= 0;
for i:=1 to N do
if A[i] = X then
begin
nX:= i;
break
end;
if nX > 0 then
write('A[', nX, ']=', X)
else write('Не нашли!');
end.