Дан массив вещественных чисел. Вывести на экран новое состояние массива в котором ко всем нулевым элементам прибавить n из всех положительных элементов вычесть a, ко всем отрицательным элементам прибавить b. В паскале. Значение a b n вводятся с клавиатуры

program zz1;

const n=5; / / задаем количество чисел в массиве

var i:integer; / / задаем переменную целого типа

a, b, n:real;

x:array [1 ... n] of real;

begin

for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в массив

read (x[i]);

write (' введите a, b, n '); read (a, b, n)

for i:=1 to n do

if x[i] < 0 then x[i]:=x[i] + b;

for i:=1 to n do

if x[i] > 0 then x[i]:=x[i] - a;

for i:=1 to n do

if x[i] = 0 then x[i]:=x[i] + n;

for i:=1 to n do

write (x[i]:5:2); / / выводим полученный массив в формате пять знаков для числа и два знака после запятой

end.