Then begin

c: = a [ i ];

a[i]:= a[j];

a [ j ]: = c

end;

writeln (‘упорядоченный по возрастанию массив ‘);

fori:= 1tondo

write(a [ i ]);

End.

4. Поиск элемента в массиве.

Одна из важных невычислительных задач — поиск данного значения среди элементов массива, Такой поиск называется также поиском по ключу. На практике поиск осуществляется в упорядоченном массиве, причем имеются различные алго­ритмы поиска. В данном примере осуществим поиск путем сплошного перебора. Если элемент найден, то напечатаем его номер, если нет, то выдадим соответствующее сообщение. Су­щественным является то, какой из одинаковых элементов массива, равных данному, нас интересует: первый встретив­шийся при поиске или последний. В этом примере будем ис­кать первый. Поиск осуществляется в цикле, и как только элемент найден, надо выйти из цикла. Для досрочного выхода из циклаfor используем операторgoto. Если досрочный выход не произойдет, то значит, элемент, равный данному, в масси­ве отсутствует. В таком случае выдача сообщения об отсутст­вии элемента происходит сразу после цикла поиска. Следова­тельно, чтобы обойти печать номера элемента, надо использо­вать еще один операторgoto и еще одну метку в программе.

Программа поиска данного элемента в массиве:

programР15;

label1,2;

constn = 7;

vara :array[1 .. n ]of real;x :real;i :integer;

Begin

writeln(‘введите элементы массивов’);

fori: = 1tondo

read(a [ i ]);

writeln;

write (‘введите число для поиска в массиве, х = ‘);

readln(х);

fori: = 1tondo

ifa [ i ] = xthen goto1;

writeln(‘такого числа в массиве нет’);

goto 2;

1:write(‘номер элемента массива, равного данному ‘, i);

2:end.

Если искать не первый по порядку равный ключу элемент, а последний, то надо использовать цикл обратного пересчета: for i: = n downto 1 do.