Составим программу, которая формирует одномерный массив вводом с клавиатуры, находит в массиве элементы, заданные пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
program Find_Elem; {Поиск элемента в массиве}
const
Count =10;
М : array [1..Count] of byte=(2,2,3,4,5,2,7,8,9,2);
var
N, А, В, I : Byte;
begin
Writeln('Исходный массив:');
for I := 1 to Count do Write(M[I]:3,' '); Writeln; Writeln;
A := 0; {Нет элемента с таким значением}
В := 0; {Пока не найдено ни одного элемента}
Write('Введите Значение элемента массива для поиска >');
Readln(N);
for I := 1 to Count do {Поиск элемента, значение которого =N}
if M[I] = N then
begin
if В =0 then A := I; {Запомнить номер первого элемента, равного N}
В := В + 1; {Увеличить число найденных элементов на 1}
end;
if B=0 then Writeln('Нет таких элементов в массиве')
else
begin
Writeln('Количество элементов массива, имеющих значение значение',N,' - ',В);
Writeln('Первый элемент — ', А);
end;
end.
|
Главная
Каталог файлов
