дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором все положительные элементы увеличились в 2 раза, ф отрицательные - уменьшились в 2 раза.

program zz1;

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

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

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

begin

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

read (x[i]);

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

begin

if x[i] < 0 then x[i]:=x[i] / 2;

if x[i] > 0 then x[i]:=x[i] * 2;

end;

for i:=1 to n do

write (x[i],' '); / / выводим полученные числа из массива в строку через пробел

end.