Найти общие элементы двух массивов из 10 элементов

program prog5_4;
 
const
  N = 10;
 
type
  vector = array[1..N] of integer;
 
var
  x, y, m: vector;
  i, j, k: integer;
  t: integer;
  count: integer;
 
begin
  {Заполнение массивов случайными числами}
  randomize;
  for i := 1 to N do 
    x[i] := random(100);
  for j := 1 to N do
    y[j] := random(100);
  
  {Вывод массивов на экран}
  write('Массив х:');
  for i := 1 to N do
    write(x[i]:3);
  writeln;
  
  write('Массив y:');
  for j := 1 to N do
    write(y[j]:3);
  writeln;
  
  {Нахождение общих элементов}
  count := 0;
  for i := 1 to N do
    for j := 1 to N do
      if x[i] = y[j] then
      begin
        write(x[i]:3);
        inc(count);
      end;
  if count = 0 then 
    
    writeln('Нет общих элементов');
  
  
end.

{(C) vint-81}
const
  n = 10;
 
type
  mas = array[1..n] of integer;
 
var
  a, b, c: mas;
  i, t: integer;
 
procedure vvs(var x: mas; s: string);
var
  i, j, tmp: integer;
begin
  writeln(s);
  for i := 1 to n do 
    x[i] := random(10);
  for i := 1 to n - 1 do
    for j := 1 to n - i do 
      if x[j] < x[j + 1] then 
      begin
        tmp := x[j]; 
        x[j] := x[j + 1]; 
        x[j + 1] := tmp
      end;
  for i := 1 to n do 
    write(x[i]:2);
  writeln;
end;
 
//функция подсчета общих элементов в массивах x,y
function k_odin(x, y: mas; var z: mas): integer;
var
  i, j, k: integer;
begin
  i := 1;j := 1;k := 0;
  while (i <= n) and (j <= n) do
    if x[i] = y[j] then
    begin
      inc(k);
      c[k] := x[i];
      while (i < n) and (x[i] = x[i + 1]) do 
        inc(i);
      inc(i);
      while (j < n) and (y[j] = y[j + 1]) do 
        inc(j);
      inc(j)
    end
      else
    if x[i] > y[j] then 
    begin
      while (i < n) and (x[i] = x[i + 1]) do 
        inc(i);
      inc(i)
    end
    else 
    begin
      while (j < n) and (y[j] = y[j + 1]) do 
        inc(j);
      inc(j)
    end;
  k_odin := k;
end;
 
begin
  vvs(a, 'массив 1:');
  vvs(b, 'массив 2:');
  t := k_odin(a, b, c);
  writeln('количество общих элементов: ', t );
  writeln('Массив общих элементов: ' );  
  for i := 1 to t do
    write(c[i]:3);
end.

program prog5_4;
 
const
  N = 10;
 
type
  vector = array[1..N] of integer;
 
var
  x, y, c: vector;
  i, j, k: integer;
  t: integer;
  count: integer;
 
begin
  {Заполнение массивов случайными числами}
  randomize;
  for i := 1 to N do 
    x[i] := random(100);
  for j := 1 to N do
    y[j] := random(100);
  
  {Вывод массивов на экран}
  write('Массив х:');
  for i := 1 to N do
    write(x[i]:3);
  writeln;
  
  write('Массив y:');
  for j := 1 to N do
    write(y[j]:3);
  writeln;
  
  {Нахождение общих элементов}
  i := 1;j := 1;k := 0;
  while (i <= n) and (j <= n) do
    if x[i] = y[j] then
    begin
      inc(k);
      c[k] := x[i];
      while (i < n) and (x[i] = x[i + 1]) do 
        inc(i);
      inc(i);
      while (j < n) and (y[j] = y[j + 1]) do 
        inc(j);
      inc(j)
    end
      else
    if x[i] > y[j] then 
    begin
      while (i < n) and (x[i] = x[i + 1]) do 
        inc(i);
      inc(i)
    end
    else 
    begin
      while (j < n) and (y[j] = y[j + 1]) do 
        inc(j);
      inc(j)
    end;
  write('Массив C:');    
  for i := 1 to k do
    write(c[i]:3);
end.