Задача на группы положительных чисел. Опции

[MeatCrash]

Вроде, уже создавал тему, но по странным причинам её не стало. Вот задача: дан одномерный массив целых чисел размерностью 20. Определите количество положительных групп в этом массиве. Группой называется последовательность, состоящая из 2-х и более положительных чисел, находящихся рядом.

Вот её код:

Program T_17_9;
Const
  E=10;
Type
  N=array[1..E]of real;
Var
  m:N;
  i,group:byte;
Begin
  For i:=1 To E Do
    begin
      writeln('Vvedite element massiva pod nomerom: ',i);
      readln(m[i])
    end;
    group:=0;
  for i:=1 to E do
    If (m[i]>0) and (m[i+1]>0) Then
      begin
        group:=group+1;

      end;
  writeln('koli4estvi polozitelnih grup ravno: ',group);
End.

И не надо ничего удалять, сначала хотя бы объясните: зачем вы это делаете.

[Bokul]

Вроде, уже создавал тему, но по странным причинам её не стало.
И не надо ничего удалять, сначала хотя бы объясните: зачем вы это делаете.

Никто не удаляет, почитай здесь ВАЖНО: технические работы (завершено), переснос форума

вот похожая задача

[volvo]

MeatCrash, еще раз продублируешь тему - будет удален и источник и дубликат...
Задача про положительные групы элементов в массиве.

У тебя в профиле есть кнопка - "найти все сообщения участника". Так вот, пользуйся ей...

[MeatCrash]

MeatCrash, еще раз продублируешь тему - будет удален и источник и дубликат...
Задача про положительные групы элементов в массиве.

У тебя в профиле есть кнопка - "найти все сообщения участника". Так вот, пользуйся ей...

Сорри, Volvo. Просто не мог найти кнопку профиль, теперь зашёл через поиск пользователей, а уж там нашёл свои сообщения. Но я так и не понял, куда ушла та тема. Она ведь осталась в разделе задачи? Как будто её унесло в какую-то даль. Объяснишь? А то я в полной абстракции от всего этого.