program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//interface implementation 怎么用暂不清楚
var
str:string;
A: array[0..2] of Integer;
B: array[1..2] of Integer;
i : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{ Writeln('请输入一个整数');
Readln(str);
Writeln('你输入的是:',str);
}
A[0] := 1;
A[1] := 12;
A[2] := 15;
B[1] := 21;
B[2] := 22;
B[3] := 27; //错误,提示越界,作为右值不提示错误
for i:=0 to 2 do
begin
Writeln('A ',i,' ',A[i]);
end;
for i:=0 to 3 do
begin
Writeln('B ',i,' ',B[i]);
end;
Readln;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
//interface implementation 怎么用暂不清楚
var
str:string;
A: array[0..2] of Integer;
B: array[1..2] of Integer;
i : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{ Writeln('请输入一个整数');
Readln(str);
Writeln('你输入的是:',str);
}
A[0] := 1;
A[1] := 12;
A[2] := 15;
B[1] := 21;
B[2] := 22;
B[3] := 27; //错误,提示越界,作为右值不提示错误
for i:=0 to 2 do
begin
Writeln('A ',i,' ',A[i]);
end;
for i:=0 to 3 do
begin
Writeln('B ',i,' ',B[i]);
end;
Readln;
end.