program P6;

const
n = 10;
var
a, b: array[1..n] of real;
i: integer;

begin
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
if a[i] < 0 then b[i] := -a[i]
else b[i] := a[i];
end;
for i := 1 to n do
writeln(b[i]);
readln;
end.
Va rog in limbaj C++