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

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

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

type
  myArr=array[1..7] of integer;
var a:myArr;
  i,n: integer;
procedure randm(var a: myArr);
var min, max: integer;
begin
  randomize();
  min:=1;
  max:=15;
  for i:=low(a) to high(a) do
  begin
    a[i]:= min+random(max-min+1);
    write (a[i],' ');
  end;
end;
function sravni(a:myArr; k:integer): boolean;
var l:integer;
begin
  for l:=(k+1) to high(a) do
  if a[k]=a[l] then
  begin
    result:=false;
    break;
  end
  else if l=high(a) then
    result:=true;
end;
begin
  randm(a);
  writeln();
  for i:= low(a) to high(a) do
  if not sravni(a,i) then
  begin
    writeln('massiv neunicalen');
    break;
  end
  else if i=high(a) then
    writeln('massiv unicalen');
  readln();
end.