Submission #1948694

---

Source Code Expand

var
    n,i,j,k,tmp: Integer;
    d:array[1..100] of Integer;
    flag:Boolean;
begin
    readln(n);
    for i := 1 to n do
    begin
        readln(tmp);
        flag:=false;
        for j := 1 to k do
        begin
            if (d[j]=tmp) then
            begin
                flag:=true;
                break;
            end;
        end;
        if not flag then
        begin
            inc(k);
            d[k]:=tmp;
        end; 
    end;
    writeln(k);
    readln;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result