Найти в массиве все пары зеркальных элементов (элементов, имеющих один модуль, но разный знак).

const nx = 30;var C:Array[1..nx]of integer;r,i,n,m,max,k,el:integer;BeginRandomize;write('Введите количество элементов');Readln(n);for r:=1 to n do beginC[r]:=random(100)-50;write(C[r]:4);end;writeln;for r:=1 to n do beginif 0 < C[r] then beginfor i:=r to n do beginif (0 > C[i])and (abs(C[i])= C[r]) then writeln(r:3,C[r]:4,' ',i:3, C[i]:4);end;end;if 0 > C[r] then beginfor i:=r to n do beginif (0 < C[i])and (C[i]= abs(C[r])) then writeln(r:3,C[r]:4,' ',i:3, C[i]:4);end;end;end;end.