rovect7.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 27 行

program vector7;
var v,w:array[1..100]of integer;
    i,n,j,k:integer;
    ok: boolean;
begin
write('n=');readln(n);
for i:=1 to n do
         begin
         write('v[',i,']= ');
         readln(v[i]);
         end;
         ok:=false;
for i:=1 to n do
           begin
           ok:=true;
           for j:=1 to n do
                         if v[i]=w[j] then ok:=false;
                                      if ok then   begin
                                                   k:=k+1;
                                                   w[k]:=v[i];
                                                   end;
           end;
for i:=1 to k do
writeln(w[i],' ');
readln;
end.