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

program massive (input, output);type vector=array[1..10] of integer;var I:integer;z:vector;beginfor I:=1 to 10 doread (z[I]);for I:=1 to 10 doif z[I]<0 then z[I]:=z[i]*(-1);for I:=1 to 1o dowrite (z[I], ' ');end.