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

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

2
8
-----------------------------------------------------
Я тут папробывал написать код ,но он не работает?
Если его запустить без использование массива то он выдаёт только последее значение, а по условию нужно каждый номер последовательности вывести в новую строку.

Код

var s:string; var k,i,j:integer; rez: array[1 .. 20] of integer; rez1: array[1 .. 20] of string; begin ReadLn(s); for i:=1 to Length(s) do begin   if s[i+1]=s[i] then   begin j:=0;      rez[j]:=i;      j:=j+1;   end; end; for k:=0 to 20 do WriteLn(rez[k]); end.

Кароче переделывать твой код бесполезно, там полностью всё не так:
1. Раздел Var пишется только один раз в головной программе, он предназначен для описания всех типов.
2. Не вижу смысла использовать строковый массив, ведь у тебя и числа и позиции целого типа.
Предлагаю такое решение:

Код

program pr; Const  Nmax=100; Var  i,j,m:integer;  a,b:array[1..Nmax] of integer; Begin  writeln('Вход:');  i:=1;  Repeat    readln(m);    a[i]:=m;    i:=i+1;  Until m=0;  i:=1; j:=1;  Repeat    if a[i]=1 then      begin        if a[i+1]=1 then          begin            b[j]:=i;            j:=j+1;          end;        repeat          i:=i+1;        until a[i]<>1;      end    else i:=i+1;  Until a[i]=0;  writeln('Выход:');  for i:=1 to j-1 do    writeln(b[i]); End.

nik118

Цитата(nik118 @ 7.1.2005, 14:47)

В каждой строке входа дано по одному элементу исходной последовательности.

Как-то не вяжется с тем, что ты пытаешься сделать в программе:

Код

begin  ReadLn(s);  ...  {больше ввод не происходит} end.

То есть, один ReadLn. Или ты пытаешься ввести строку вида '4111612110' сразу, если же нет, то как ты хочешь получить следующую строку входа?

Цитата(volvo877 @ 7.1.2005, 17:08)

как ты хочешь получить следующую строку входа?

Так как написано у меня.

Zero
То что у тебя - понятно... Но как nik118 пытался сделать это изначально, вот в чем вопрос ... Я кстати, предлагал ему такое решение, но оно его не устроило...

Цитата(volvo877 @ 7.1.2005, 17:16)

Но как nik118 пытался сделать это изначально, вот в чем вопрос ...

Незнаю, я не телепат.

Цитата(volvo877 @ 7.1.2005, 17:16)

Я кстати, предлагал ему такое решение, но оно его не устроило...

Незнаю где ты ему предлагал, пусть тогда скажет что ему тут не понравилось.

Код

procedure Output(var A: mas; n: integer); var  j,k: integer; begin  j:=1;  repeat    if A[j] = 1 then    begin      k:=j;      while A[j] = 1 do Inc(j);      if j-k > 1 then Writeln(IntToStr(k));    end;    Inc(j);  until j >= n; end;

Сложно определить чего тут все добиваются, если чисел больше 500?. Написано же заканчиваются 0!!!
Zero, вот правильно написал, но зачем усложнять жизнь - вся программа пишется при пятерых переменных и массивом. И всё решается одним цыклом для ввода данных и одним для вывода.

Код

program kvs; var mas:array[1..100] of integer;      s,a,b,i,k:integer; begin i:=0;                 //Номер результата s:=0;                //Количество встретившихся 1 a:=0;                //Номер начала появляющихся 1 k:=0;                //Номер по порядку введенного числа repeat  readln(b);            //Число ввода  k:=k+1;                //Номер числа увеличился  if b=1 then begin   if s=0 then a:=k; //Запомнили появление 1   s:=s+1;               //Количество 1 увеличилось на 1  end else begin                           //Единицы закончились - пора чего-то с ними делать.   if s>1 then begin                           //Количество "1" больше 1 тогда записываем в результаты     i:=i+1;           //Увеличиваем номер результата     mas[i]:=a;     //Записываем результат     a:=0;             //Номер начала появлений 1 обнуляем     s:=0;             //Количество, тоже, обнуляем.   end;  end; until b=0; //Вывод результата: for k:=1 to i do begin  writeln('Результат=',mas[k]); end; end;

Добавлено @ 16:57

Цитата(Zero @ 7.1.2005, 16:29)

1. Раздел Var пишется только один раз в головной программе, он предназначен для описания всех типов.

С этим я не согласен, Паскаль позволяет VAR писать хоть перед каждым новым объявлением переменной.

Цитата(Druidik25 @ 2.2.2005, 16:51)

С этим я не согласен

Хм... Точно, я до этого так не эксперементировал.