pascal help em

[admin]

Program cau3;
Uses Crt ;
Const MAX = 1000 ;
Var
a: array[1 .. MAX] of integer ; n : integer ; soam: integer; tong: integer;
Begin
Writeln('Nhap N:');
Readln(n);

soam:=0;
tong:=0;

For i := 1 To n Do
Begin
Writeln('Nhap a[',i,']=');
Readln(a);
End

For i:=1 to n do
Begin
if a

[admin]

bionline;143:
cau 2 b tiep

VAR i,j,n: integer;
a: array[1..50,1..50] of integer;
BEGIN
n:=2;
FOR i:=0 TO n-1 DO
FOR j:=i+1 TO n DO
BEGIN
a[i,j] := i+j;
write(a[i,j]);
END;
Readln;
ẸND

Câu này compile sẽ error vì
vòng lập đầu tiên i=0; j=1 mà pasal mảng phải bắt đầu từ 1 nên bị lỗi tại a[0,1]
Câu nay la bẫy đấy em :22:

[admin]

Hu hu . Em làm 4 7 mất rồi. Chết mất sai 1 câu >.< Nếu như tất cả còn lại đúng. Thank Anh và Ku TIN nhé ... hehehe .... Cầm quả ĐT trên tay mà run run. Sợ bị bắt .....