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

Для решения этой задачи можно пройтись по элементам массива и проверять, является ли текущий элемент положительным и следующий за ним тоже положительным. Если это так, то мы можем считать, что образуется новая положительная группа.

Вот как это можно реализовать на Python:

pythonCopy code
arr = [...] # Ваш массив из 20 чисел
count = 0  # Счетчик положительных групп

for i in range(len(arr) - 1):
    if arr[i] > 0 and arr[i+1] > 0:
        count += 1

print("Количество положительных групп:", count)

В этом коде мы проходимся по всем элементам массива arr, кроме последнего, и проверяем, является ли текущий элемент и следующий за ним положительными. Если это так, увеличиваем счетчик count. В конце программы выводим количество положительных групп.