Урок 15 Задача 12

Урок 15 Задача 12

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:

▶
?
1
|1|5|4|5|6|7|8|
-- функция должна "сообщить", что он неуникальный

а для:

▶
?
1
|1|15|4|5|6|7|8|
-- что уникальный.

program u15z12; // 1 вариант


type
  myArr1 = array[1..7] of integer;
  myArr2 = array[1..7] of integer;

var m,i,j,z: integer;
    a: myArr1;
    b: myArr2;
    min,max,n: integer;


function un(var a :myArr1; b: myArr2) : integer;


begin
  z:=0;
  writeln();

  for i := 1 to 7 do
  begin
      for j := 1 to 7 do
      begin
        if (a[i] = b[j]) then
        begin
          z:=z+1;
          break;
        end;
      end;
  end;
  if(z < 7) then
    result:=0
  else
    result:=1;
end;

begin

  randomize();
  min := 1;
  max := 15;
  begin
    for i := low(a) to high(a) do
    begin
      a[i] := min + random(max - min +1);
      write(a[i],' ');
    end;
    writeln();
    for j := low(b) to high(b) do
    begin
      b[j] := min + random(max - min +1);
      write(b[j],' ');
    end;

    if (un(a,b) = 0) then
      writeln(' unicalnii')
    else
      writeln('ne unikalnii');
    writeln();
  end;
  readln();
end.