Основы программирования на языке Turbo Pascal. Беляева И.В. - 37 стр.

UptoLike

Составители:

Рубрика:

if k > 0 then Inc(cnt);

end;

{7 – выводим количество повторений}

writeln('Количество совпадений cnt=', cnt);

readln; {Ждем нажатия клавиши Enter}

End.

Проверка соседних элементов массива

Задача 18: Подсчитать, сколько в массиве элементов, равных 0, справа

и слева от которых стоят отрицательные элементы.

Фрагмент программы:

…

k := 0; {Количество таких элементов}

{Проходим по всем элементам массива A. Начинаем не

с первого элемента, а со второго, потому что у первого элемента

нет стоящего слева от него. Заканчиваем на n-1 элементе, а не

на n, потому что у последнего n-го элемента нет элемента,

стоящего от него справа}

for I := 2 to n - 1 do

{Если i-й элемент

равен 0 и элемент слева от него и

элемент справа от него отрицательные}

if (A[i] = 0) and (A[i-1] < 0 ) and (A[i+1] < 0)

then Inc(k); {Тогда увеличиваем счетчик}

…

Задача 19: Найти номер первого элемента массива, который находится

между двумя положительными элементами.

Фрагмент программы:

…

k := 0; {k – номер искомого элемента}

I := 2; {начинаем со второго элемента}

{Пока не нашли искомый элемент и не просмотрели