1. все компоненты вещественного вектора , начиная с первого по порядку положительной компоненты, уменьшить на 1.

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandomReal(n, -99.0, 99.0);

 a.Transform(p -> Round(p, 1));

 a.Println;

 var k := a.FindIndex(p -> p > 0);

 if k > -1 then

 begin

   for var i := k to a.High do

     a[i] -= 1;

   a.Println  

 end

 else

   Println('В массиве нет положительных эдементов')

end.