Задача 10 урок 15
Primary tabs
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
type MyArr = array[1..7] of integer; var a: MyArr; min,max,g: integer; function flag(b:MyArr): string; var s,i,n: integer; begin s:=0; for i:=1 to 7 do for n:=1 to 7 do if b[i] = b[n] then s := s+1; if s > 7 then result:='no' else result:='yes'; end; begin randomize(); min:=1; max:=15; for g:=low(a) to high(a) do begin a[g]:=min+random(max-min+1); write(a[g],' '); end; writeln(); writeln(flag(a)); readln(); end.
- Log in to post comments
- 647 reads