В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. Вывести на экран исходный и преобразованный массивы.

Const / /подключаем константу;

n = 15; / /значение константы;

var

a: array[1 ... n] of integer; / /значение цикла;

i: integer; / /переменная целого типа;

begin

Randomize; / /подключаем рандомайзер;

Writeln ('Элементы массива'); / /Просим ввести элементы массива;

for i : = 1 to n do / /цикл с использованием рандомайзер;

begin

a[i] : = Random (61) - 30;

Write (a[i]:4);

if a[i]>0 then a[i]:=2*a[i]

else

if a[i]<0 then a[i]:=7

end;

Writeln; / /вывод до преобразования;

Writeln ('После преобразования'); / /вывод после преобразования;

for i : = 1 to n do Write (a[i]:4); / /новый цикл;

Writeln

end.