Câu 1 :

Uses Crt;

Var A : Array[1..200] of Integer;

      i : Integer;

Begin

 Clrscr;

 For i:=1 to 50 do 

   Begin

    Write('Nhap diem hoc sinh thu ',i,' : '); Readln(A[i]);
   End;
 Writeln('Diem cua tung hoc sinh la : '); 

 For i:=1 to 50 do Writeln(A[i]);

 Readln

End.
Câu 2 : 
Sau khi thực hiện đoạn chương trình 1 : S = 10 , n = 4
Lần 1 n = 0 + 1 = 1 ; S = 0 + 1 = 1
Lần 2 n = 1 + 1 = 2 ; S = 1 + 2 = 3 
Lần 3 n = 2 + 1 = 3 ; S = 3 + 3 = 6
Lần 4 n = 3 + 1 = 4 ; S = 6 + 4 = 10
Lần 5 S > 6 nên sai điều kiện
Sau khi thực hiện đoạn chương trình 2 : S = 28 , n = 7
Lần 1 n = 0 + 1 = 1 ; S = 0 + 1 = 1
Lần 2 n = 1 + 1 = 2 ; S = 1 + 2 = 3 
Lần 3 n = 2 + 1 = 3 ; S = 3 + 3 = 6
Lần 4 n = 3 + 1 = 4 ; S = 6 + 4 = 10
Lần 5 n = 4 + 1 = 5 ; S = 10 + 5 = 15
Lần 6 n = 5 + 1 = 6 ; S = 15 + 6 = 21

Lần 7 n = 6 + 1 = 7 ; S = 21 + 7 = 28
Lần 8 n > 6 nên sai điều kiện