Задача 12 Урок 15
Primary tabs
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:|1|5|4|5|6|7|8|-- функция должна "сообщить", что он неуникальный
а для:
|1|15|4|5|6|7|8|-- что уникальный.
program u15z12; type mas=array [1..7] of integer; var i:integer; a: mas; function uni(e:mas): string; var j,b,d:integer; c:string; begin b:=0; for j:=low(e) to high(e) do for d:=low(e) to high(e) do begin if(e[d]=e[j]) then b:=b+1; end; if b>7 then //если совпадений больше чем элементов массива c:='Neunik' else c:='Unik'; result:=c; end; begin randomize(); for i:=low(a) to high(a) do //заполняем массив случайными числами begin a[i] :=random(15); write(a[i],' '); end; writeln(); write (uni(a)); readln(); end.
- Log in to post comments
- 379 reads