Даны натуральное число n, целые числа а1,…,аn. Выяснить, имеются ли среди чисел а1,…,аn совпадающие — Pascal(Паскаль)

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.

Leave a Comment

64 − = 63