даны натуральное число n, действительные числа а1, ..., аn. В последовательности а1, ..., аn все отрицательные члены увеличить на 0,5 а все неотрицательные заменить на 0,1.

program zz1;

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

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

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

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

a[i]:=random (51) - 25+random;

for i:=1 to n do / / выводим исходный массив на экран в строку в формате восемь знаков для числа и два знака после запятой

write (a[i]:8:2);

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if a[i] < 0 then a[i]:=a[i] + 0.5 else a[i]:=0.1;

for i:=1 to n do / / выводим полученный массив на экран в строку в формате восемь знаков для числа и два знака после запятой

write (a[i]:8:2);

end.