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

Я очень долго думал над этой задачей, но с логикой у меня туго. Вот то, что я успел сделать:

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

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

MeatCrash, имена переменным попроще давай...

Вот так получше будет:

Const
  n = 10;
Type
  TA = array[1 .. n] of real;

var
  m: TA;
  i, group: byte;
Begin
  for i := 1 To n do begin
    writeln('Vvedite element massiva pod nomerom: ', i);
    readln(m[i])
  end;

  group := 0;
  i := 1;
  while i < n do begin
    if (m[i] > 0) and (m[i+1] > 0) then begin
      inc(group);
      while (i <= n) and (m[i] > 0) do inc(i); { <--- Ты упустил этот момент... }
    end
    else inc(i);
  end;

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

Program T_17_9;
Const
  Ebt=10;
Type
  Nah=array[1..Ebt]of real;
Var
  m:Nah;
  i,group:byte;
  fl: boolean;
Begin
  writeln('Vvedite elementy massiva ');
  For i:=1 To Ebt Do
      read(m[i]);
  readln;

  group:=0; fl:=false;
  for i:=1 to Ebt-1 do
    If (m[i]>0) and (m[i+1]>0) Then fl:=true
    else
    if fl and (m[i+1]<=0) then begin inc(group); fl:=false end;
  if fl then inc(group);
  writeln('koli4estvi polozitelnih grup ravno: ',group);
  readln;
End.

Всем спасибо и ещё раз извиняюсь за повторение темы. Был не прав, исправлюсь.