ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
№9. ПОИСК ЗАДАННОГО ЭЛЕМЕНТА В МАССИВЕ
ПОСТАНОВКА ЗАДАЧИ: Определить, есть ли в заданном массиве элемент равный L.
Имеется массив А: 3 1 2 5 3 4 8 L=5
В массиве А имеется элемент равный 5
В данной программе можно использовать "флажок" - специальную переменную, которая принимает значения "истина" или "ложь" в зависимости от того найден элемент или нет.
Program Poisk_El_Massiva;
uses crt;
. . .
procedure Poisk(L: integer);
var fl: boolean;
begin
fl:=false;
for i:=1 to n do
if a[i]=L then
fl:=true;
if fl then
write(' Элемент равный ',L,' имеется ')
else write(' Элемент равный ',L,' отсутствует');
end;
Begin
ClrScr;
n:=20;
Input;
ClrScr;
Print;
writeln;
writeln;
write('Введите значение искомого элемента: ');
readln(L);
Poisk(L);
Readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу, т. е. найти 3-4 элемента.
2. Если в массиве несколько одинаковых элементов, то найти первый из них и указать его индекс.
3. Подсчитать количество одинаковых элементов в массиве.