Ответ:

program project215;

uses

 crt;

var a:array[1..100] of integer;

   i,j,k:integer;

begin

 randomize;

 j:=0;

 k:=0;

 for i:=1 to 100 do

 begin

   a[i]:=random(100)-50;

   writeln(a[i]);

   if i mod 10=0 then writeln;

   if a[i]>0 then j:=j+1

   else

   begin

  if k<j then k:=j;

     j:=0;

   end;

 end;

write('Максимальная последовательность положительных элементов: ',k);

 Readln;

end.

Объяснение: