Question

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

Answer 1

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.

Answer 2

спасибо большое!