Задача 10 урок 15
Primary tabs
Задача 10 урок 15
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
type myArr = array[1..7] of integer; var a: myArr; i, s, h: integer; begin s := 0; randomize(); for i:=low(a) to high(a) do //формирование массива begin a[i]:= random(15) +1; write('| ',a[i]); end; writeln('|'); for i:=1 to 7 do for h:=1 to 7 do if a[i] = a[h] then s := s+1; if s > 7 then //если больше 7 совпадений writeln('NEunikalniy massiv') else writeln('Unikalniy massiv'); readln; end.
- Log in to post comments
- 678 reads