В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них вектор B - Pascal ABC

Формулировка задачи:

В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них веткор B. За ранее, спасибо за помощь!

Код к задаче: «В заданном векторе найти его оригинальные (неповторяющиеся) элементы и сформировать из них вектор B - Pascal ABC»

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.

10   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы