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