var a: array[1..n] of integer; i: integer; flag: boolean;
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(19999) - 9999; Write(a[i]:6); end; Writeln; i := 1; flag := False; repeat flag := (sign(a[i]) = sign(a[i + 1])); i := i + 1 until flag or (i > n); if flag then Writeln('Есть пара соседних элементов с одним знаком') else Writeln('Нет пар соседних элементов с одним знаком') end.
Тестовое решение: Элементы массива 2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844 Есть пара соседних элементов с одним знаком
Будем считать, что трёхлитровый кувшин - это кувшин под номером 1, а восьмилитровый - номер 2. Сначала 8 литров наливаете во второй кувшин. Из второго кувшина переливаете в первый 3 литра. Получаете в первом кувшине - 3 литра, а во втором - 5. Выливаете из первого кувшина 3 литра. Снова из второго кувшина переливаете в первый 3 литра. В первом находится снова 3 литра, а во втором - 2. Выливаете воду из первого. Из второго добавляете в первый 2 литра. В первом - 2 литра, а второй пустой. Полностью заполняете восьмилитровый кувшин и переливаете 1 литр в первый. В итоге во втором кувшине остаётся 7 литров воды. Удачи!
вот ответ на твой вопрос