Program Nastya; uses crt;

const n=15;

var b:array [1..n] of integer;
    i:byte;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Writeln('Исходный массив B:');
for i:=1 to n do
    Begin
    B[i]:=Random(11);
    B[i]:=B[i]-5;
    Write(B[i]:4);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
Writeln('Преобразованный массив B:');
for i:=1 to n do
    Begin
    if (B[i] > 0) then B[i]:=-B[i]
                  else if (B[i] < 0) then B[i]:=Abs(B[i]);
    Write(B[i]:4);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.