Консультация № 137881
26.05.2008, 19:59
0.00 руб.
0 1 1
Вводится последовательность из n произвольных чисел. Определить, сколько раз данная последовательность меняет знак.

Обсуждение

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

Смотрите приложение.
Удачи!

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

Форма ответа