Дан массив, состоящий из целых чисел. напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками. входные данные сначала задано число n — количество элементов в массиве (1n10000). далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел. выходные данные необходимо вывести слово yes, если существует пара соседних элементов с одинаковыми знаками. в противном случае следует вывести слово no.

Hondok13 Hondok13    3   22.06.2019 08:30    15

Ответы
TheGrigory TheGrigory  17.07.2020 15:25
Var a:array[1..100000] of integer;
c,i:integer;
Begin
Readln(c);
for i:=1 to c do
if a[i]>0 then inc(c);
Write(c);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика