Дан одномерный массив целых чисел размерностью 20.
Определите количество положительных групп в этом массиве.
(группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)
Определите количество положительных групп в этом массиве.
(группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)
More Questions From This User See All
Answers & Comments
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.