Консультация № 137879
26.05.2008, 19:56
0.00 руб.
0 1 1
Дана последовательность из N чисел. Определить, сохраняет ли данная последовательность знак.

Обсуждение

давно
Старший Модератор
31795
6196
28.05.2008, 16:26
общий
это ответ
Здравствуйте, Sanq4!

Программа в приложении выводит истину если знак сохраняется и ложь в противном случае.
Удачи!

Приложение:
const n=10;var a:array[1..n]of integer; b:integer;begin {создаем в цикле последовательность и выводим её} randomize; for b:=1 to n do begin a[b]:=random(20)-10; write(a[b]:4); end; {проверяем условие} for b:=1 to n-1 do if (a[b]*a[b+1])<0 then break; {выводим результат} writeln(a[b]*a[b+1]>=0:8,b:5);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа