Program zad;
uses crt;
var x:array[1..10] of integer;
k,f:integer;
begin
clrscr;
randomize;
for k:=1 to 10 do
begin x[k]:=random(15)-3;
write(x[k]:6); end;
writeln;
f:=0;
for k:=1 to 10 do begin
if x[k]<0 then begin x[k]:=x[k]*(-1); end;
write(x[k]:6); end;
writeln;
readln;
end.