Задача 12 Урок 15
Primary tabs
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
type myArr = array[1..7] of integer; var a: myArr; i: integer; min,max:integer; procedure writeArr(arr: myArr; msg:string); var i:integer; begin writeln(msg); for i:=low(arr) to high(arr) do write(arr[i], ' '); writeln(); end; function cravnenie1(a: myArr):integer; var i,i2:integer; c:boolean; begin c:=true; for i:=low(a) to high(a) do for i2:=(i+1) to high(a) do if a[i]=a[i2] then begin c:=false; writeln ('kod ne unicalen',' ',a[i],' v ctroke ',i,' ravno ',a[i],' v ctroke ',i2); end; if (c) then writeln ('kod unicalen'); end; begin randomize(); min := 1; max := 15; for i:=low(a) to high(a) do a[i] := min + random(max - min + 1); writeArr(a,'original array: '); cravnenie1 (a); readln(); writeln ('End'); end.
Вывод консоли:
original array: 12 11 14 4 15 6 8 kod unicalen
- Log in to post comments
- 139 reads