Submission #1709129

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,StrUtils;

function MatchText0000(const AText: string; const AValues: array of string): Boolean;
var
  i:Integer;
begin
  result:=false;
  for i := 0 to Length(AValues) - 1 do begin
    if AText=AValues[i] then
      result:=True;
  end;
end;

var
  n,i,j,a1:Integer;
  kouhosha:string;
  tokuhyou:array of string;
  hyousuu:array of Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(n);
    SetLength(tokuhyou,n);
    SetLength(hyousuu,n);
    for i := 0 to n - 1 do begin
      Readln(kouhosha);
      if not MatchText0000(kouhosha, tokuhyou) then //いなければ追加
        tokuhyou[i]:=kouhosha
      else //いたら
      for j := 0 to i - 1 do begin //検索してカウント
        if tokuhyou[j]=kouhosha then
          Inc(hyousuu[j]);
      end;
    end;

    a1:=0;
    for i := 0 to n-1 do begin //多かった人は
      if hyousuu[i]>hyousuu[a1] then
        a1:=i;
    end;
    Writeln(tokuhyou[a1]);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Compile Error

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

Judge Result