Программирование на языке Паскаль. Часть II К. Поляков, Поиск в массиве 1 Задача – найти в массиве элемент, равный X, или установить, что его нет. Пример: если в классе ученик с фамилией Пупкин? Алгоритм: 1)начать с 1-ого элемента ( i:=1 ) 2)если очередной элемент ( A[i] ) равен X, то закончить поиск иначе перейти к следующему элементу:

Программирование на языке Паскаль. Часть II К. Поляков, Поиск элемента, равного X 2 начало конец нет да нет да i <= N? i:= 1 A[i] = X? i:= i + 1 начать с 1-ого перейти к следующему Не нашли Есть! Как найти номер? ?

Программирование на языке Паскаль. Часть II К. Поляков, Поиск элемента в массиве 3 program qq; const N=5; var a:array[1..N] of integer; i, X: integer; begin { здесь надо заполнить массив } i:=1; while A[i]<>X do i:=i+1; if i <= N then writeln('A[', i, ']=', X) else writeln('Не нашли...'); end. program qq; const N=5; var a:array[1..N] of integer; i, X: integer; begin { здесь надо заполнить массив } i:=1; while A[i]<>X do i:=i+1; if i <= N then writeln('A[', i, ']=', X) else writeln('Не нашли...'); end. (i X) do

Программирование на языке Паскаль. Часть II К. Поляков, Задания 4 «4»: Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X. Пример: Исходный массив: Что ищем? 0 A[2], A[5], A[10] «5»: Заполнить массив из 10 элементов случайными числами в интервале [0..4] и определить, есть ли в нем одинаковые соседние элементы. Пример: Исходный массив: Ответ: есть