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.
