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

const F=5;const N=10;var i:integer;e:array[1..N] of integer;beginrandomize;writeln('Изначальный массив: ');for i:=1 to N do e[i]:=-30+random(60);for i:=1 to N do write(e[i],' ');writeln;writeln('Измененный массив: ');for i:=1 to N doif e[i]<0 then e[i]:=e[i]+F;for i:=1 to N do write(e[i], ' ');end.