Câu 2:
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Qui trình hoạt động: khi nào <biến đếm> nhỏ hơn hoặc bằng <giá trị cuối> thì thực hiện câu lệnh. Số lần lặp là <giá trị cuối>-<giá trị đầu>+1
Câu 1:
Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If A[i] mod 2 = 0 then
                Begin
                        inc(d);
                        s:=s+A[i];
                End;
        End;
        Write(s/d:0:2);
        Readln
End.
Câu 2:
Program NN;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        For i:=length(St) downto 1 do
                Write(St[i]);
        Readln
End.