СРОЧНО!!! ОЧЕНЬ СРОЧНО! ПОМОГИТЕ.... Дан массив, состоящий из целых чисел. Напишите программу, которая определяет, есть
ли в массиве пара соседних элементов с одинаковыми знаками. Входные данные Сначала задано число N — количество элементов в массиве (1N10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести слово YES, если существует пара соседних элементов с одинаковыми знаками. В противном случае следует вывести слово NO.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
katjaivanova140518
Запишем программу в Паскале, определяющая, есть ли в массиве пара соседних элементов с одинаковыми знаками.
Дано
Начало выполнения алгоритма:
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]<0)and(a[i+1]<0))or
((a[i]>0)and(a[i+1]>0))then
flag:=1;
if flag=1 then
writeln('YES')
else
writeln('NO');
end.
Примечание: Конструкцию ((a[i]<0)and(a[i+1]<0)) or ((a[i]>0)and(a[i+1]>0)) можно заменить на (a[i]*a[i+1])>0
Дано
Начало выполнения алгоритма:
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]<0)and(a[i+1]<0))or
((a[i]>0)and(a[i+1]>0))then
flag:=1;
if flag=1 then
writeln('YES')
else
writeln('NO');
end.
Примечание: Конструкцию ((a[i]<0)and(a[i+1]<0)) or ((a[i]>0)and(a[i+1]>0)) можно заменить на (a[i]*a[i+1])>0
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
