Программа var a,b:array[1..30] of integer; i:integer; begin for i:=1 to 30 do begin write('a[',i,']='); read(a[i]); end;
for i:=1 to 30 do if a[i]<0 then b[i]:=-a[i] else b[i]:=a[i]; readln; for i:=1 to 30 do write(b[i]:4); Writeln; readln; end.