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