Я очень долго думал над этой задачей, но с логикой у меня туго. Вот то, что я успел сделать:
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.