uses crt;
{$R-}
{ otklyuchim proverku na diapazon }
type
TTmas = array [1 .. 1] of real; { tip elementov }
Tmas = ^TTmas; { ssylka }
var
a: Tmas;
n, i, j: integer;
b: boolean;
begin
clrscr;
writeln('Razmer massiva n=');
readln(n); { schityvaem razmer massiva }
getmem(a, sizeof(TTmas) * n); { vydelim pamyati pod nash massiv }
writeln('Vvedite ', n, ' elementov massiva:');
for i := 1 to n do
begin
write('el[', i, ']=');
readln(a^[i]); { schityvaem sami elementy massiva }
end;
clrscr;
writeln('Ishodnyi massiv:');
for i := 1 to n do
write(a^[i]:0:2, ' '); { vyvodim ishodnyi massiv na ekran }
writeln;
b := false; { oznachaet chto povtoryayuschihsya NET }
for i := 1 to n do { pervyi prohod po massivu }
for j := 1 to n do { vtoroi-vlozhennyi prohod po massivu }
if (i <> j) and (a^[i] = a^[j]) then
b := true; { povtoryayuschiesya EST' }
if b then
writeln('Sovpadaiuschie ESTI') { vyvod rezul'tata }
else
writeln('Sovpadaiuschix NET');
freemem(a, sizeof(TTmas) * n); { osvobodim pamyat' }
{$R+}{ vklyuchim range error }
readln
end.