Дан одномерный массив целых чисел размерностью 20.

Определите количество положительных групп в этом массиве.

(группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)

Const N=20;

Var m:array[1 ... N]of real;

i, group:byte;

fl: boolean;

Begin

for i : = 1 to 20 do

begin

m[i] : = random (20) - 10;

writeln ('[', i, '] = > ', m[i]) ;

end;

group:=0;

fl:=false;

for i:=1 to N-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 (group) ;

End.