左侧不能分配给/ bin的21/22。
这是我的代码
Program urut;
Uses Wincrt;
Const N = 5;
data: Array [1..N] Of Integer = (2,4,5,3,1);
Var
j,k,temp : Integer;
Begin
Clrscr;
Writeln ('Data sebelum diurutkan');
For j:=1 To N Do
Begin
Writeln('data[' ,j, ']= ',data [j]);
End;
For j:=1 To N-1 Do
Begin
For k :=N Downto j+1 Do
Begin
If data[k] < data[k-1] Then
Begin
temp := data[k];
data[k] := data[k-1]; //left side cannot be assigned to
data[k-1] := temp; //left side cannot be assigned to
End;
End;
End;
Writeln;
Writeln ('Data setelah diurutkan ');
For j:=1 To N Do
Begin
Writeln ('data[' ,j, '] = ',data[j]);
End;
Writeln;
End.
抱歉,模式发布不正确 ,非常感谢。
答案 0 :(得分:0)
就像汤姆·汤姆·布朗伯格(Tom Brunberg)所说,我的数组是const,无法更改。因此,我需要删除该const。
应该是
data: Array [1..5] Of Integer = (value);
没有const,并将其放在var下,并带有另一个变量