Безотлагательно!!! ОЧЕНЬ СРОЧНО! ПОМОГИТЕ.... Дан массив, состоящий из целых чисел. Напишите

Безотлагательно!!! ОЧЕНЬ Безотлагательно! ПОМОГИТЕ.... Дан массив, состоящий из целых чисел. Напишите программку, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками. Входные данные Сначала задано число N количество частей в массиве (1N10000). Далее через пробел записаны N чисел элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести слово YES, если существует пара соседних элементов с схожими знаками. В противном случае следует вывести слово NO.

Задать свой вопрос
1 ответ
Запишем программку в Паскале, определяющая, есть ли в массиве пара примыкающих частей с схожими знаками.
Дано
Начало исполненья метода:
const
n=10000;
var
a:array[1..n]of integer;
i,n1, flag:integer;
begin
readln(n1);
for i:=1 to n1 do
read(a[i]);
for i:=1 to n1-1 do
if ((a[i]lt;0)and(a[i+1]lt;0))or
((a[i]gt;0)and(a[i+1]gt;0))then
flag:=1;
if flag=1 then
writeln(YES)
else
writeln(NO);
end.
Примечание: Конструкцию ((a[i]lt;0)and(a[i+1]lt;0)) or ((a[i]gt;0)and(a[i+1]gt;0)) можно заменить на (a[i]*a[i+1])gt;0
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт