Паскаль. 1. Дан массив (задан с клавиатуры, количество элементов 10), содержащий положительные и отрицательные числа. Заменить все элементы массива на противоположные по знаку.​

var

mas: array[1..10] of integer;

i: integer;

begin

 for i := 1 to 10 do begin

 write('mas[',i,'] = ');

 readln(mas[i]);

 end;

 writeln('Obratnii massiv:');

 for i := 1 to 10 do begin

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

 writeln('mas[',i,'] = ',mas[i]);

 end;

end.