Даны массив чисел e=(e1,) и число f. увеличить все отрицательные элементы массива е на f. решить в паскале и расписать формулы.

Const
  n = 5;

var
  E: array [1..n] of integer;
  F, i: integer;

begin
  writeln('Enter E:');
  for i := 1 to n do
  begin
    write('E', i, ' = ');
    readln(E[i]);
  end;
  write('F = ');
  readln(F);
 
  for i := 1 to n do
    if E[i] < 0 then
      E[i] := E[i] + F;
      
  writeln('New array:');
  for i := 1 to n do
    writeln('E', i, ' = ', E[i]);
end.

Вот. А что до формул, тут только разве что