SaveText.Ru

Без имени
  1. program cn;
  2. const
  3.    n = 10;
  4.    var
  5.        a: array[1..n] of integer;
  6.     i, j, x, q, k:integer;
  7. begin
  8. randomize;
  9.     for i := 1 to n do begin
  10.         a[i] := Random(10);
  11.     end;
  12.     for i:=2 to n do begin
  13.        x:=a[i];
  14.        j:=1;
  15.     while (x>a[j]) do
  16.         j:=j+1;
  17.     for q:=i downto j+1 do
  18.        a[q]:=a[q-1];
  19.        a[j]:=x;
  20.     end;
  21.     for i := 1 to n do begin
  22.         if (a[i] = a[i + 1]) then begin
  23.         writeln(a[i]);
  24.         end;
  25.     end;
  26. end.
  27.  

Share with your friends:

Print