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

265

325

Посмотреть ответы 2

Ответы на вопрос:

svetavladimirovaaa

Информатика

4,7(100 оценок)

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. вот. а что до формул, тут только разве что