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