|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.01.2009, 12:01 | #1 |
Пользователь
Регистрация: 19.01.2009
Сообщений: 17
|
Определить, сколько раз в последовательности меняется знак
Дана последовательность ненулевых целых чисел,
оканчивающаяся нулем. Определить, сколько раз в этой пос ледовательности меняется знак. Например, в последователь ности 10, –4, 12, 56, –4 знак меняется 3 раза. const n=10; var a:array[1..n+1] of integer; i,kol:integer; flag:boolean; begin for i:=1 to n do readln(a[i]); writeln; a[n+1]:=0; i:=1; kol:=0; if a[i]>0 then flag:=true else flag:=false; while a[i]<>0 do begin if flag and (a[i]<0) then begin inc(kol); flag:=false; end else if (not(flag)) and (a[i]>0) then begin inc(kol); flag:=true; end; if a[i]>0 then flag:=true else flag:=false; inc(i); end; writeln(kol); end. |
22.01.2009, 12:25 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Мало что понял в твоем коде, вот предлагаю свой простенький вариант:
Код:
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить, сколько раз температура опускалась ниже нуля | triston | Помощь студентам | 2 | 21.11.2008 16:19 |
Сделать одно дейстиве не сколько раз | zotox | Помощь студентам | 2 | 26.10.2008 02:41 |
Определить сколько раз встречается в тексте самое короткое слово - Delphi 7 | Леди Уинтер | Помощь студентам | 3 | 08.01.2008 17:56 |
Сколько раз встречается данное слово | n1k1c4 | Помощь студентам | 4 | 13.12.2007 20:33 |