Составьте программу для решения следующей задачи: задан массив В, состоящий из х чисел. Выведете на экран элементы противоположные элементам данного массива. Первоначально элементы вводятся случайно из промежутка [-17; 17]

program zz1;

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

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

B:array [1 ... n] of integer;

begin

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

B[i]:=random (35) - 17;

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

write (B[i]:4);

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

for i:=1 to n do / / организуем цикл

B[i]:=B[i] * (-1);

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

write (B[i]:4);

end.