В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них вектор B - Pascal ABC
Формулировка задачи:
В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них веткор B. За ранее, спасибо за помощь!
Решение задачи: «В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них вектор B»
textual
Листинг программы
const N = 10; type TVector = array[1..N] of Integer; var A, B: TVector; i, j: Integer; Cnt: Integer; Find: Boolean; begin writeln('Введите ',n,' элементов массива А, целые числа:'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln('Исходный массив:'); for i:=1 to n do write(a[i],' '); writeln; for i:= 1 to N do begin Find:= False; for j:= 1 to N do if (A[i] = A[j]) and (i <> j) then begin Find:= True; Break; end; if not Find then begin Cnt:= Cnt + 1; B[Cnt]:= A[i]; end; end; if Cnt=0 then write('Уникальных элементов нет') else begin writeln('Уникальные элементы:'); for i:= 1 to Cnt do Write(B[i],' '); end; end.
Объяснение кода листинга программы
- Создается переменная
n
, которая будет хранить количество введенных пользователем элементов массиваA
. - Создается тип данных
TVector
, который представляет собой массив целых чисел. - Создаются две переменные
A
иB
, которые будут хранить исходный массив и вектор уникальных элементов соответственно. - Создается переменная
i
, которая будет использоваться для итерации по элементам массиваA
. - Создается переменная
j
, которая будет использоваться для сравнения элементов массиваA
. - Создается переменная
Cnt
, которая будет хранить количество найденных уникальных элементов. - Создается логическая переменная
Find
, которая будет использоваться для определения того, найден ли уникальный элемент. - Запускается цикл, который проходит по каждому элементу массива
A
. - Внутри цикла проверяется, является ли текущий элемент уникальным. Для этого сравниваются все элементы массива
A
до текущего элемента и проверяется, что текущий элемент не равен ни одному из них и что индексы элементов различны. - Если текущий элемент является уникальным, то увеличивается счетчик
Cnt
и элементB[Cnt]
устанавливается равным текущему уникальному элементу. - После завершения внутреннего цикла, проверяется значение переменной
Cnt
. ЕслиCnt
равно нулю, то выводится сообщение о том, что уникальных элементов нет. В противном случае, выводится сообщение с уникальными элементами, которые хранятся в массивеB
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д