Program Neprogram;
type
  mas=array[1..999]of integer;
var
  i,kolvo,elementov,max_naideno:integer;
  m:mas;
Procedure Vvod(Var m:Mas; Var kolvo:integer);   //ввод массива
          Var i:integer;
              begin
                randomize;
                   repeat
                         write('Vvedite kolvo elementov:');
                         readln(kolvo);
                   until kolvo>0;
                   for i:=1 to kolvo do
                      Begin
                            m[i]:=trunc((-9-9)*random+9);
                            write(m[i]);
                            write(' ');
                      end;
              end;
Begin
   vvod(m,kolvo);
   elementov:=1;               //считаем кол-во подряд идущих больше 0
   max_naideno:=1;            //максимально подряд идущих больше 0
   writeln;
          for i:=2 to kolvo do 
              BEGIN
              if m[i]>0 then
               begin
                 elementov:=elementov+1;
                 //Строку ниже удали, если не хочешь чтоб отображалось сравнение элементов
                 writeln('Element ',m[i-1], ' and element ', m[i],' = ', elementov);
                 end
              else
                  begin
                     if  max_naideno<elementov then
                         begin
                           max_naideno:=elementov;
                           elementov:=1;
                         end;
                     elementov:=1;
                  end;
              if (i=kolvo) and (max_naideno<elementov)then
                 max_naideno:=elementov;
              end;
writeln;
writeln('Samaya dlinnaya  posledovatelnost > 0 :',max_naideno);
end.

Vvedite kolvo elementov:20
6 0 2 4 -1 5 5 -4 0 7 0 -6 5 1 0 8 2 -2 -4 -3 
Element 0 and element 2 = 2
Element 2 and element 4 = 3
Element -1 and element 5 = 2
Element 5 and element 5 = 3
Element 0 and element 7 = 2
Element -6 and element 5 = 2
Element 5 and element 1 = 3
Element 0 and element 8 = 2
Element 8 and element 2 = 3

Samaya dlinnaya  posledovatelnost > 0 :3

Program Neprogram;
Type Mas= Array[1..100] of Integer;
var i,kolvo: integer;
    x:mas;

// Процедура ввода элементов

Procedure vvod(Var x:mas; Var kolvo: integer);
Begin
randomize;
   repeat
      write('Vvedite kolvo elementov:');
      readln(kolvo);
   until kolvo>0;
   for i:= 1 to kolvo do
          begin
             	x[i]:= random(20)- 10;
             	write(x[i],' ');
         	end;
writeln;
end;

// Процедура поиска минимального элемента

Procedure poisk(x:mas; kolvo:integer);
Var min:integer;
Begin
   min:=x[1];
   for i:= 2 to kolvo do
       if x[i]<min then
          min:=x[i];
   writeln('Minimalnii element: ', min);
End;

Begin
vvod(x,kolvo);
poisk(x,kolvo);
end.

Vvedite kolvo elementov:5
-10 8 -5 -7 -4 
Minimalnii element: -10