不是VIP会员,不能显示答案

题目解答

题目:
program Program2;
  var
  a,t:string;
  i,j:integer;
  begin
  a:=`morning`;
  j:= l;

   for i:=2 to 7 do
    if (a[j]<a[i])then
     j:= i;
   j:= j-1;
   for i:=1 to j do
    write (a[i]);
  end.
输出:mo
考点:
分析:
解答:
评论:
老师: