Бірдей белгілері бар екі элемент бар ма

Шешімді жөнелту
Ұпайлар: 1
Уақыт шектеуі: 1.0s
Жад шектеуі: 256M
Author:
admin
Problem type
Рұқсат етілген тілдер
Assembly, Awk, Brain****, C, C++, Java, Pascal, Perl, Python, Sed, Text

Бүтін сандардан тұратын массив берілген. Массивте бірдей белгілері бар көрші элементтердің жұбы бар-жоғын анықтайтын бағдарламаны жазыңыз.

Енгізу

Алдымен \(n\) саны берілген — массивтегі элементтер саны (1 \(\le n \le\) 100). Әрі қарай бос орын арқылы \(n\) сандар жазылады — массив элементтері. Массив бүтін сандардан тұрады.

Шығару

Егер бірдей белгілері бар көрші элементтер жұбы болса, YES сөзін шығару керек. Әйтпесе, No сөзін шығару керек.

Мысалдар

Енгізу 1
4
4 4 4 4
Жауап 1
YES
Енгізу 2
2
-1 0
Жауап 2
NO

Пікірлер


  • 0
    d30mant  пікір қалдырды Ақп. 19, 2025, 6:38 Т.Ж.

    why it does not work


    • 0
      highmein11  пікір қалдырды Қар. 9, 2025, 12:11 Т.Қ.

      for i := 0 to n - 2 do if (arr[i] >= 0) and (arr[i + 1] >= 0) or (arr[i] < 0) and (arr[i + 1] < 0) then plus := true; if plus then writeln('Yes') else writeln('No');