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

Question

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

Comments

Что такое "противоположное" число? Противоположное по знаку или так почему-то назвали обратное число, равное единице, деленной на исходное?

Answer 1

Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);<br>for I:=1 to 1o do
write (z[I], ' ');
end.