1/ J =10;

2/

a)Sai. vì giá trị đầu > giá trị cuối

b)Sai. vì giá trị đầu và cuối không phải là kiểu số nguyên.

c) đúng.

d)dư dấu ; sau do.

3/C

4/D

5/C

6/A

7/A

8/A

9/

program oken;

uses crt;

var i,n,tong:longint;

begin

clrscr;

write('nhap n: '); readln(n);

for i:=1 to n do

         tong:=tong+i;

writeln('tong cac so tu nhien tu 1 den n: ',tong);

readln;

end.

1) J =10;

2) a)Sai. Vì giá trị đầu > giá trị cuối

    b)Sai. Vì giá trị đầu và cuối không phải là kiểu số nguyên.

    c) đúng.

    d)dư dấu ";"

3)C     4)D     5)C     6)A     7)A     8)A

9)

program bai9;

uses crt;

var a: array [1..100] of integer;

      i,n,t: longint;

begin clrscr;

   write('nhap so phan tu cua mang: '); readln(n);

 for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

         t:=t+i;

    end;

   writeln('tong cac so trong mang: ',t);

readln;

end.

Học tốt!