Массивы

[kornit]

В жизни не программировал на Паскале,а препод задал задачу
Дан одномерный массив А. Составить массив В из не повторяющихся элементов массива А.
А (2,3,9,3,7,6,7)
В (2,9,6)
Как это представить в Паскале

[ByAlex]

Сообщение от kornit

В жизни не программировал на Паскале,а препод задал задачу
Дан одномерный массив А. Составить массив В из не повторяющихся элементов массива А.
А (2,3,9,3,7,6,7)
В (2,9,6)
Как это представить в Паскале

Вот простенький вариант -

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A:array[1..10] of integer;
  B:array of integer;
  Check:boolean;
  i,j,size,n:integer;
begin
  Check:=false;
  B:=nil;
  Setlength(B,10);
  n:=0;
  write('Input the massive = ');
  for i := 1 to 10 do
    read(A[i]);
  writeln;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      if i<>j then
      begin
        if A[i]=A[j] then
          Check:=true;
      end;
    end;
    if not Check then
    begin
      B[n]:=A[i];
      inc(n);
    end;
    Check:=false;
  end;
  Setlength(B,n);
  write('Result = ');
  for i := 0 to n-1 do
    write(B[i],' ');
  readln;
  readln;
end.