CÂU 1:

có 3 lần lặp:

+lần 1: a=2, b=2

+lần 2: a=4, b=6

+lần 3: a=6; b=12

CÂU 2: 

A.  sau biến gán X thiếu : và kết thúc thiếu ;

B. biến điếm i không có: kết thúc lệnh ko có;

C. sao từ khóa do ko có;

D. chỉ số đầu là 10 không được lớn hơn chỉ số cuối là 5

E. dấu ) sao chỉ số cuối phài là ] ko phải ngoặc tròn sao real không có dấu ;

F. kết thúc câu lệnh lặp không có dấu ;

CÂU 3:

 var <tên biến mảng>: array[<gia trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

VD: var chieucao:array[1..50] of real;

CÂU 4:

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong so nguyen la:=',s);

readln

end.

chúc bạn học tốt

cho mình câu trả lời hay nhất nha

1) Chương trình lặp 3 lần

- Lần 1: a= 2, b= 2 

- Lần 2: a= 4, b= 6

- Lần 2: a= 6, b= 12

2) 

A/ Câu lệnh gán X sau từ khóa do thiếu dấu : , kết thúc lệnh lặp ko có dấu ;

B/ Gán giá trị cho biến đếm i ko có dấu : , kết thúc lệnh lặp ko có dấu ;

C/ Sau từ khóa do không được có dấu ;

D/ Chỉ số đầu 10 không được lớn hơn chỉ số cuối 5

E/ Dấu ngoặc sau chỉ số cuối phải là ], ko được để )

F/ Kết thúc lệnh lặp ko có dấu ;

4)

program ct;

uses crt;

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

      i,n,S:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong la: ',S);

readln;

end.

Học tốt!