Составить программу, которая организует ввод массива a [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.
Var A:Array[1..10] of Integer; i:Integer; Begin for i:=1 to 10 do Read(A[i]); for i:=1 to 10 do if (A[i]<0) then A[i]:=ABS(A[i]); for i:=1 to 10 do Write(A[i],' '); end.
i:Integer;
Begin
for i:=1 to 10 do
Read(A[i]);
for i:=1 to 10 do
if (A[i]<0) then A[i]:=ABS(A[i]);
for i:=1 to 10 do
Write(A[i],' ');
end.