Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 127830
17.03.2008, 23:06
0.00 руб.
0 2 2
Компьютеры Программирование
дан массив целых чисел, определить есть ли две пары соседних элементов с одинаковыми знаками

Обсуждение

Неизвестный
18.03.2008, 08:41
общий
это ответ
Здравствуйте, Степанов Александр Сергеевич!

Программа в приложении.

Приложение:
Program Pr127830; Uses CRT; Const N = 10; Var Arr: Array[1..N] of Integer; i, r: Integer; bool: Boolean;Begin ClrScr; WriteLn(‘Введите ‘, N, ‘ чисел:‘); for i := 1 to N do begin Write(‘Arr[‘, i, ‘] = ‘); ReadLn(Arr[i]); end; bool := False; WriteLn; for i := 2 to N do begin if Arr[i - 1] * Arr[i] > 0 then begin if not bool then WriteLn(‘Найдены пары соседних однознаковых элементов:‘); bool := True; Write(‘Arr[‘, i - 1, ‘] = ‘, Arr[i - 1]); WriteLn(‘ и Arr[‘, i, ‘] = ‘, Arr[i]); end; end; if not bool then WriteLn(‘Соседних однознаковых элементов не найдено‘); ReadLn;End.
давно
puporev
Профессор
401888
1232
18.03.2008, 10:12
общий
это ответ
Здравствуйте, Степанов Александр Сергеевич!
Ответ а приложении.

Приложение:
uses crt;var a:array[1..20] of integer; n,i,k:integer;beginclrscr;write(‘n=‘);readln(n);randomize;for i:=1 to n do begin a[i]:=random(20)-10; write(a[i],‘ ‘); end;k:=0;for i:=1 to n-1 doif (a[i]*a[i+1]>0)then begin k:=k+1; end;if k>=2 then writeln(‘Yes!‘)else writeln(‘No.‘);readlnend.
Форма ответа