Задача 10 Урок 15
Primary tabs
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:|1|5|4|5|6|7|8|-- функция должна "сообщить", что он неуникальный
а для:
|1|15|4|5|6|7|8|-- что уникальный.
var i, j, k: integer; a: array [1..7] of integer; begin randomize(); for i := 1 to 7 do a[i] := 1 + random(15); write('Исходный массив: '); for i := 1 to 7 do write(a[i], ' '); writeln(); for i := 1 to 7 do for j := 1 to 7 do if (a[i] = a[j]) and (i <> j) then begin k := 1; break; end; if k = 0 then write('Массив уникальный') else write('Массив неуникальный'); readln(); end.
- Log in to post comments
- 800 reads