Câu 1: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng cú pháp?

A. For i:=1 to n do; if a[i] mod 2 = 0 then writeln(a[i], ‘la so le’);

B. For i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i] ‘la so le’);

C. For i:=1 to n do if a[i] mod 2 = 0 then writeln(‘a[i], ‘la so le’);

D. For i:=1 to n do if a[i] mod 2 = 0 then writeln(‘a[i], la so le’);

sai hết ạ

Câu lệnh chính xác 

A. For i:=1 to n do if (a[i] mod 2 = 0  then writeln(a[i], ‘la so le’);

Câu 2: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là sai cú pháp?

A. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i] = 1);

B. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i], ‘= 1’);

C. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i] = 0);

D. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i], ‘≥ 1’);

Câu 3: Cho khai báo biến mảng sau: 

Var a:array[0..16] of byte;

Câu lệnh nào sau đây in ra tất cả các phần tử của mảng.

A. For i:=1 to 16 do write(a[i]);

B. For i:= 0 to 15 do write(a[i]);

C. For i:=16 downto 0 do write(a[i]);

D. For i:=16 downto 1 do write(a[i]);

Câu 4: Cho khai báo biến mảng sau: 

Var a:array[0..16] of byte;

Phương án nào dưới đây chỉ phần tử thứ 10 của mảng.

A. a[9]

B. a[10]

C. a[11]

D. a(10)

Câu 4:Đoạn chương trình sau khi thực hiện cho kết quả gì? Var a:array[1..3] of byte; i:byte; Begin For i:=1 to 3 do a[i]:=i; For i:=1 to 3 do If a[i] mod 2 = 0 then Write(a[i]); End. A. 1

B. 2

C. 3

D. 1 2 3

Câu 5: Cho chương trình sau:

var f:array[0..50] of word; i:byte;

Begin

     f[0]:=0; f[1]:=1;

     for i:=2 to 10 do

     begin f[i]:=f[i-1]+f[i-2];

              write(f[i]:4); end;

End.

Phần tư a[6] có giá trị là:

A. 6

B. 7

C. 8

D. 9

không có giá trị 

Câu 6: Sau khi chạy chương trình dưới, giá trị của f là bao nhiêu:

var a:array[1..100] of byte; i,f,d:byte;

begin

     for i:=1 to 100 do a[i]:=i;

     d:=a[2]-a[1];

     for i:=2 to 100 do if a[i]=a[i-1]+d then f:=1 else f:=0;

     write(f);

readln End.

A. 0

B. 1

C. 100 số 0

D. 100 số 1

Câu 7: Sau khi chạy chương trình dưới, giá trị của f là bao nhiêu:

var a:array[1..100] of byte; i,f,d:byte;

begin

     for i:=1 to 10 do a[i]:=2*i+1;

     d:=a[2]-a[1];

     for i:=2 to 10 do if a[i]+d=a[i+1] then f:=1 else f:=0;

     write(f);

end.

A. 1

B. 0

C. 10 số 0

D. 10 số 1

Câu 8: Chương trình sau thực hiện giải bài toán gì?  

A. Đếm số lượng số nguyên tố trong dãy

B. Đếm số lượng số chẵn trong dãy

C. Đếm số lượng số hỗn hợp trong dãy

D. Đáp án khác - không có chương trình 

Câu 9: Chương trình sau giải bài toán gì:

k:=5-1;

for i:=1 to n do if a[i] mod k = 0 then s:=s+a[i];

A. Tính tổng các phần tử trong mảng là bội của k

B. Tính tổng các phần tử trong mảng là bội của 5

C. Tính tổng các phần tử chẵn trong mảng

D. Tính tổng các phần tử lẻ trong mảng

Câu 10: Cho đoạn chương trình giải bài toán tìm phần tử có giá trị lớn nhất trong mảng và chỉ số của phần tử tìm được như sau:

j:=1;

For i:=2 to n do if a[i] > a[j] then j:=i;

Write(‘gia trị lớn nhat la’,a[j], ‘chi so:’,j);

Giải thích nào dưới đây cho đoạn chương trình trên là hợp lí

A. Đưa ra tất cả các phần tử lớn nhất và chỉ số của nó

B. Nếu có nhiều phần tử cùng có giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất

C. Nếu có nhiều phần tử cùng có giá trị lớn nhất thì đưa ra phần tử có chỉ số lớn nhất

D. Đưa ra 1 giá trị lớn nhất và tất cả các chỉ số