Помогите пожалуйста

← →
Жанна (2003-01-14 12:52) [0]

Мастера а вы не знаете как победить этот пример
Дана последовательность целых чисел. Построить последовательность номеров позиций, откуда начинаются последовательности, состоящие как минимум из 2-х единиц подряд.
Признак конца последовательности - 0.
и надо вывести по одному элементу результирующей последовательности, а заключительный нуль в результат не выводить

← →
myor (2003-01-14 12:57) [1]

????????

> последовательность целых чисел

или нулей и единиц
или в последовательности целых найти последовательности единиц,
которые заканчиваются нулем

???????

если можно, еще раз

и желательно с примером

← →
Жанна (2003-01-14 13:06) [2]

Вход:

4
1
1
1
6
1
2
1
1
0
Выход:

2
8

← →
myor (2003-01-14 13:15) [3]

совсем другое дело :)

j:=0;
for i:=1 to the_end do
begin
if ((a[i]=1) and (a[i+1]=1) and (a[i-1]<>1))
then begin
inc(j);
b[j]:=i;
end;
end;

a- массив чисел входной последовательности
b- массив позиций

ввести и вывести последовательности в цикле, а надеюсь, не проблема? :)

← →
still (2003-01-14 13:18) [4]

var
a: array[1..100] of integer;
i: integer;
begin
i := 1;
while (i<=100) do
begin
if (a[i]=1) and (a[i+1]=1) then
begin
//здесь запоминаем i или выводим его напр., на экран
while (i<=100) and (a[i+1]=1) do inc(i);
end;
inc(i);
end;
end;

Вроде ничего не напутал ...

← →
myor (2003-01-14 13:22) [5]

> still © (14.01.03 13:18)

а вроде и напутал
прога будет выводить и позицию "3", потому что ты проверяешь наличие "1" только впереди, т. е., из уже найденной последовательности

← →
still (2003-01-14 13:29) [6]

а вот и не напутал :)
как только нашли 11, то следующие единицы пропускаются (вложенный while)

← →
myor (2003-01-14 13:53) [7]

тоже вариант

Помогите пожалуйста Найти похожие ветки