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

program SearchElementInArray;
var
arr: array[1..10] of Integer; // Исходный массив
i, elementToFind: Integer; // Переменные для цикла и элемента для поиска
isFound: Boolean; // Флаг для указания найден ли элемент
begin
isFound := false;
// Заполнение массива произвольными значениями
for i := 1 to 10 do
begin
arr[i] := Random(100); // Генерируем случайные числа от 0 до 99
end;
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;
write('Введите элемент, который хотите найти в массиве: ');
readln(elementToFind);
// Поиск элемента
for i := 1 to 10 do
begin
if arr[i] = elementToFind then
begin
writeln('Элемент ', elementToFind, ' найден в массиве на позиции ', i);
isFound := true;
break; // Выход из цикла, если элемент найден
end;
end;
if not isFound then
begin
writeln('Элемент не найден в массиве');
end;
end.

Эта программа создает массив из 10 случайных чисел, затем запрашивает пользователя ввести элемент, который нужно найти в массиве. После этого программа перебирает элементы массива и ищет совпадение с введенным элементом. Если элемент найден, программа выводит позицию элемента в массиве, иначе выводит сообщение об отсутствии элемента.