按照鱼老师的15讲做的判断最大值和下标，怎么也不行啊？？？？？？

怀念部队

我觉得基本是没错误啊，但是总是显示最大和下标是最后一个，这不科学啊！！、
代码附上，哪位帮我看看啊




procedure TForm1.Button1Click(Sender: TObject);
var
  Ran_num:Array[1..10] Of  Integer;
  i: Integer;
  max,max_i:Integer;    //max存放最大值,max_i存放最大值下标。
begin
    Randomize;            //消除伪随机数的弊端。
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
  For i:=1 To 10 Do
    begin
       Ran_num[i]:=Random(100);
       Edit1.Text:=Edit1.Text + IntToStr(Ran_num[i]) + ' ';
    end;

          //以下代码进行数据筛选。
          max:=Ran_num[1];
          max_i:=1;
          for i:=2 To 10 do
          begin
              If (max < Ran_num[i]) Then;
              begin
                  max:=Ran_num[i];
                  max_i:=i;
              end;

          end;
          Edit2.text:=IntToStr(max);
          Edit3.text:=IntToStr(max_i);
end;
end.

ne555lm386

If (max < Ran_num[i]) Then;
这条语句后面的分号去掉，不然编译器把这条语句当成一条命令执行

怀念部队

我试试，谢谢

怀念部队

真的是这里的原因  非常感谢

myisland

多犯几次这种错误就能记住了！:lol:

wozengcong

If (max < Ran_num[i]) Then;后面怎么又1个分号？

2004111

支持一个哦