Вси++ добавить к каждому отрицательному элементу массива заданное число.

For(i = 0; i < size; i++) {   if(array[i] < 0)   {     array[i] += value;     } }

//pascal   var a,b, i, maxsumm, max : integer;     function summdel(x: integer): integer; //результат - сумма делителей х   var k,sum: integer;   begin       sum: =0;       for k : = 1 to x div 2 + 1 do           if x mod k = 0 then sum: = sum+k;       summdel: =sum;   end;     begin     writeln('введите границы a,b ');     readln(a,b);       maxsumm : = 1;       max : = 1;       for i : = a to b do         begin               if summdel(i) > maxsumm then                   begin maxsumm: = summdel(i);                       max : = i;                   end;         end;         writeln('максимальная сумма делителей - ', maxsumm, ' число - ',max)   end.

Using system; class program {       public static void main()       {               console.write("a = ");               var a = double.parse(console.;               console.write("n = ");               var n = int.parse(console.;               var s = 0.0;               for (var i = 0; i < = n; i++)                       s += math.pow(a, i);               console.writeline($"s = {s}");               console.readkey();       } }