Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры. Решить задачу на паскале.

program zz1;

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

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

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

begin

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

read (m[i]);

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

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

for i:=1 to 5 do

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

end.