Даны массив чисел E=(e1,e2,...,en) и число F. Увеличить все отрицательные элементы...

Question

Даны массив чисел E=(e1,e2,...,en) и число F. Увеличить все отрицательные элементы массива Е на F. Решить в паскале и расписать формулы.

Answer 1

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.

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