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

• Подсчитать, сколько в массиве элементов, равных 0, справа и слева от которых стоят отрицательные элементы.

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

…

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

{проходим по всем элементам массива A. Начинаем не с первого, а со второго, потому что у первого элемента нет стоящего слева от него  заканчиваем на n-1 элементе, а не на n, потому что у последнего n-го элемента нет элемента, стоящего от него справа}

for i :=2 to  n-1  do

if (A[i]=0) and (A[i-1]<0) and (A[i+1]<0)  {если i-ый элемент равен 0 и элемент слева от него и элемент справа от него отрицательные}

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

…

• Найти номер первого элемента массива, который находится между двумя положительными элементами.

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

…

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

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

while (i<=n-1) and (k=0) do {пока не нашли искомый элемент и не просмотрели все элементы массива}

begin

if (A[i-1]>0) and (A[i+1]>0) then k:=i; {если элемент тот, что надо, то запоминаем его индекс}

Inc( i ); {переходим к следующему элементу}

end;

{выводим позицию искомого элемента}

if k=0 then writeln('искомых элементов в массиве нет') else writeln('искомый элемент занимает позицию ',k);

...

<<Назад