• Дан массив, состоящий из целых чисел. Напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками.

Ответы 1

  • program Main; Var a:array[1..1000]of integer; i,n,k:integer; begin write('Введите количество элементов в массиве: '); readln(n); writeln('Введите массив: '); for i:=1 to n do read(a[i]); writeln; k:=0; for i:=1 to n-1 do if (a[i]=a[i+1]) then k:=k+1; if (k>0) then writeln('Есть ',k,' пар соседних элементов с одинаковым значением') else writeln ('Нет пар соседних элементов с одинаковым значением'); end.
    • Автор:

      havenooiw
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years