Bộ 4 đề kiểm tra 1 tiết HK2 môn Tin học 11 năm 2019-2020 có đáp án - Trường THPT Thống Nhất

Nhằm chuẩn bị sẵn sàng để bước vào kì kiểm tra 1 tiết HK2 sắp tới mời các bạn học sinh khối 11 cùng tham khảo và tải về Bộ 4 đề kiểm tra 1 tiết HK2 môn Tin học 11 năm 2019-2020 có đáp án - Trường THPT Thống Nhất sau đây để ôn tập, rèn luyện và nâng cao kỹ năng giải bài tập Tin học. Chúc các bạn ôn tập kiểm tra đạt kết quả cao.

Trang 1

Sở GD-ĐT Tỉnh Đồng Nai Kiểm tra 45 ' - HKII - Năm học: 2019- 2020 Trường THPT Thống Nhất Môn: Tin- Lớp: 11

Thời gian: 45' ( không tính thời gian giao đề)

Họ tên học sinh: Lớp:

01 ; / = ~ 10 ; / = ~ 19 ; / = ~ 28 ; / = ~

02 ; / = ~ 11 ; / = ~ 20 ; / = ~ 29 ; / = ~

03 ; / = ~ 12 ; / = ~ 21 ; / = ~ 30 ; / = ~

04 ; / = ~ 13 ; / = ~ 22 ; / = ~ 31 ; / = ~

05 ; / = ~ 14 ; / = ~ 23 ; / = ~ 32 ; / = ~

06 ; / = ~ 15 ; / = ~ 24 ; / = ~ 33 ; / = ~

07 ; / = ~ 16 ; / = ~ 25 ; / = ~

08 ; / = ~ 17 ; / = ~ 26 ; / = ~

09 ; / = ~ 18 ; / = ~ 27 ; / = ~

Câu 1 Cho khai báo

Var A: Array[1 4] of Integer ; i : Integer ;

sau khi thực hiện các lệnh

For i:=1 to 4 do A[i]:= i;

For i:=1 to 4 do A[i]:= A[i]+1;

thì mảng A có gía trị là :

A A[1]=2, A[2]=3, A[3]=4, A[4]=5 B A[1]=1, A[2]=2, A[3]=3, A[4]=4

C A[1]=1, A[2]=1, A[3]=1, A[4]=1 D A[1]=0, A[2]=1, A[3]=2, A[4]=3

Câu 2 Đoạn chương trình sau đây thực hiện công việc gì?

Begin

c:=a; a:=b; b:=c; End;

A Hoán đổi giá trị của hai biến b và c cho nhau

B Hoán đổi giá trị của hai biến a và c cho nhau

C Gán giá trị các biến cho b

D Hoán đổi giá trị của hai biến a và b cho nhau

Câu 3 Trong NNLT Pascal,chọn đúng nhất, để nhập dữ liệu cho mảng một chiều A ta viết

A write("a[",i,"]=");readln(a[i]); B write('a[' i ']=');readln(a[i]);

C write('a[',i,']=');readln(a[i]); D write('a[i]=');readln(a[i]);

Câu 4 Chọn phát biểu đúng cho biến d trong đoạn chương trình sau:

d:=0;

For i:=1 to N do if a[i] mod 4 =0 then d:=d+1;

A Đếm các phần tử là bội số của 4 nó trong mảng a

B Tổng các phần tử là bội số của 4 nó trong mảng a

C Đếm các phần tử chẳn

D Tổng các phần tử lẻ

Câu 5 Chương trình sau làm việc gì?

Var A: array [1 50] of byte; i: integer;

Begin

For i:= 1 to 10 do write(A[i],' ');

Readln End

A Nhập các phần tử cho mảng A B xuat các phần tử mảng A ra màn hình

C Tính tổng các phần tử của mảng A D Đếm số các phần tử của mảng A

Câu 6 Chọn đáp án đúng nhất,trong NNLT Pascal

A Các phần tử của mảng một chiều được sắp thứ tự theo chỉ số;

B Các phần tử của mảng một chiều không sắp thứ tự;

C Các phần tử của mảng một chiều được sắp thứ tự giá trị tăng dần;

D Các phần tử của mảng một chiều được sắp thứ tự giá trị giảm dần;

Câu 7 Điền vào ô trống.Tổng các số chẵn

A[i] 9 7 4 26 10

Câu 8 Chương trình sau trả về giá trị bao nhiêu?

Trang 2

Var y, x, i:byte;

Begin

X:=20; i:=1; y = 0;

While i < x do

Begin Y:=x+i; i:=i+5; end;

Writeln('gia tri cua y:= ',y);

End

Câu 9 Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau:

S:=0; For i:= 1 to n do S:=S+ A[i];

A Khơng thực hiện việc nào trong B.Tính tổng các phần tử của mảng một chiều;

C In ra màn hình mảng A; D Đếm số phần tử của mảng A;

Câu 10 Điền vào ơ trống.Tổng các số lẻ

Câu 11 Khai báo sau cho biết:

Const Max=200;

Type Ar = array[1 Max] of byte;

Var T: Ar;

A T là mảng cĩ thể chứa tối đa 200 số thực

B T là mảng chứa các số nguyên cĩ giá trị từ 1 đến 200;

C T là mảng cĩ thể chứa tối đa 200 số nguyên

D T khơng phải là mảng

Câu 12 Cho biết đoạn chương trình sau thực hiện tính tổng nào?

S := 1; FOR i := 2 TO 10 DO S := S + 1/i;

A Tính tổng: S 1 1 1 1

2 4 10

C Tính tổng: S 1 1 1

2 3 10

Câu 13 Trong NNLT Pascal, giả sử mảng A cĩ giá trị như sau:

A[1], A[2],…A[5] cĩ giá trị lần lượt là 2, -3, 5, 7, -1

Tìm câu lệnh để in giá trị tất cả các phần tử trong mảng ra màn hình:

A for i:=1 to 5 do write(A[i]); B for i:=1 to 5 do write(A[1]);

C for i:=1 to 5 do write(A[5]); D for i:=1 to 5 do write(A[2]);

Câu 14 Cho đoạn chương trình sau:

S:=0;

For i:=1 To 10 Do

If i mod 2<>0 then S:=S+i*i;

A Đoạn chương trình trên dùng tính tổng các số lẻ từ 1 đến 10

B Đoạn chương trình trên dùng tính tổng bình phương các số lẻ từ 1 đến 10

C Đoạn chương trình trên dùng tính tổng bình phương các số từ 1 đến 10

D Đoạn chương trình trên dùng tính tổng các số chẵn từ 1 đến 10

Câu 15 Trong khai báo sau cịn bỏ trống một chỗ, vì chưa xác định kiểu dữ liệu của biến Max : Var A: Array['a' 'd'] of Real ;

Ch : Char ; Max : ;

Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo kiểu dữ liệu cho biến Max là

Câu 16 Chọn phát biểu đúng cho biến t trong đoạn chương trình sau:

t:=0;

For i:=1 to N do if (a[i] mod 2=0) and (a[i]>25) then t:=t+1;

A Tổng các phần tử cĩ giá trị chẵn trong mảng a

B Đếm các phần tử lớn hơn 25 trong mảng a

C Đếm các phần tử chẵn lớn hơn 25 trong mảng a

D Tổng các phần tử chẵn lớn hơn 25 trong mảng a

Câu 17 Cho Đoạn chương trình:

M:=A[1]; csm:=1;

For i:=2 to n do

Trang 3

If A[i]<M then

Begin

M:=A[i];

csm:=i;

end;

Đoạn chương trình trên thức hiện cơng việc:

A Tìm chỉ số lớn nhất của dãy B Tìm chỉ số nhỏ nhất của dãy

C Tìm số nhỏ nhất của dãy vi tri cua no D Tìm số lớn nhất của dãy vi tri cua no

Câu 18 Trong NNLT Pascal, cho khai báo sau:

Var b: array[1 10] of integer;

Hãy chọn lệnh gán nào đúng sau đây:

Câu 19 Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh gán đúng

A A[1] := 4/2 ; B A := 10 ; C A(3) := 6 ; D.A[2] := -6 ;

Câu 20 Cho đoạn chương trình:

for i:=1 to 9 do

if (9 mod i <>0) then

write (i); Kết quả xuất ra màn hình là:

A 1 2 4 6 8 10 B 1 3 5 7 9 C 2 4 5 6 7 8 D 1 3 6 7 8

Câu 21 Trong các câu lệnh sau câu lệnh nào đúng ?

A While (x>5) and (x<10) Do x=x-1 B While x>5 and x<10 Do x:=x-1;

C While (x>5) and (x<10); Do x:=x-1 D While (x>5) and (x<10) Do x:=x-1;

Câu 22 Trong NNLT Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?

i := 0; While i <> 0 do write(i, ' ');

A Đưa ra màn hình 10 chữ số 0 B Đưa ra màn hình một chữ số 0

C Không đưa ra thông tin gì D Lặp vô hạn việc đưa ra màn hình số

0

Câu 23 Xét chương trình sau:

Var i, s: integer;

Begin

S:=0;

For i:=1 to 5 do s:=s+i;

Writeln(s);

End

Kết quả của chương trình trên là:

Câu 24 Chọn khai báo đúng :

A Var A:= array[1 10] of integer; B.Var A: array[1 10] of integer;

C Var A: array[1,10] of integer; D Var A= array[1 10] of integer;

Câu 25 Đoạn chương trình sau viết ra màn hình: For i:=1 to 5 do Write(i*2);

Câu 26 Điền vào ơ trống

A[i] 6 7 4 12 13

MAX 6 7 7 (1) (2)

Các ơ (1), (2), (3) lần lượt cĩ giá trị là:

Câu 27 Đoạn chương trình nào sau đây tính tổng các số chẵn từ 1 đến n

A s:=0; For i := 1 to n do if i div 2 = 0 then s := s + i;

B s:=0; For i := 1 to n do if i mod 2 <> 0 then s := s + i;

C s:=1; For i := 1 to n do if i mod 2 = 1 then s := s + i;

D s:=0; For i := 1 to n do if i mod 2 = 0 then s := s + i;

Câu 28 Với định nghĩa Type Mang2 = array [1 19] of integer; thì khai báo biến nào sau đây đúng?

Trang 4

Câu 29 Chương trình sau cho kết quả của biến gt là:

gt:=1;

For i:=1 to 5 do gt:=gt * i;

Write(gt);

Câu 30 Điền vào ô trống Đếm các phần tử chẵn

A[i] 9 7 4 26 10

Câu 31 Trong TP, chọn khai báo mảng đúng trong các phương án sau:

A Type mang1= array[1 5] of integer; var A: mang1;

B Type mang1= array of integer;

C Var A: mang1;

D Type mang1= array[1 5] of integer; A: mang1;

Câu 32 Cách viết nào sau đây là đúng trong câu lệnh lặp For:

A FOR <biến đếm> := <giá trị đầu> DOWNTO <giá trị cuối> DO <Câu lệnh> ;

B FOR <biến đếm> = <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh> ;

C FOR <biến đếm> := <giá trị cuối> TO <giá trị đầu> DO <Câu lệnh> ;

D FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh> ;

Câu 33 Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <3 do

Begin

End;

Chữ 'Hello Word'được in ra màn hình mấy lần?

Trang 5

Sở GD-ĐT Tỉnh Đồng Nai Kiểm tra 45 ' - HKII - Năm học: 2019- 2020 Trường THPT Thống Nhất Mơn: Tin- Lớp: 11

Thời gian: 45' ( khơng tính thời gian giao đề)

01 ; / = ~ 10 ; / = ~ 19 ; / = ~ 28 ; / = ~

02 ; / = ~ 11 ; / = ~ 20 ; / = ~ 29 ; / = ~

03 ; / = ~ 12 ; / = ~ 21 ; / = ~ 30 ; / = ~

04 ; / = ~ 13 ; / = ~ 22 ; / = ~ 31 ; / = ~

05 ; / = ~ 14 ; / = ~ 23 ; / = ~ 32 ; / = ~

06 ; / = ~ 15 ; / = ~ 24 ; / = ~ 33 ; / = ~

07 ; / = ~ 16 ; / = ~ 25 ; / = ~

08 ; / = ~ 17 ; / = ~ 26 ; / = ~

09 ; / = ~ 18 ; / = ~ 27 ; / = ~

Câu 1 Điền vào ơ trống

A[i] 9 7 4 26 10

Câu 2 Đoạn chương trình sau đây thực hiện cơng việc gì?

Begin

A Hốn đổi giá trị của hai biến a và c cho nhau

B Hốn đổi giá trị của hai biến a và b cho nhau

D Hốn đổi giá trị của hai biến b và c cho nhau

Câu 3 Cho đoạn chương trình:

for i:=1 to 9 do

if (9 mod i <>0) then

write (i); Kết quả xuất ra màn hình là:

A 1 2 4 6 8 10 B 1 3 5 7 9 C 1 3 6 7 8 D 2 4 5 6 7 8 Câu 4 Chọn đáp án đúng nhất,trong NNLT Pascal

A Các phần tử của mảng một chiều được sắp thứ tự theo chỉ số;

B Các phần tử của mảng một chiều khơng sắp thứ tự;

C Các phần tử của mảng một chiều được sắp thứ tự giá trị giảm dần;

D Các phần tử của mảng một chiều được sắp thứ tự giá trị tăng dần;

Câu 5 Cho biết đoạn chương trình sau thực hiện tính tổng nào?

S := 1; FOR i := 2 TO 10 DO S := S + 1/i;

A Tính tổng: S 1 1 1 1

2 4 10

2 3 10

C Tính tổng: S 1 2 3 10     D Tính tổng: S 1 1 1

2 3 10

   

Câu 6 Trong NNLT Pascal, giả sử mảng A cĩ giá trị như sau:

A[1], A[2],…A[5] cĩ giá trị lần lượt là 2, -3, 5, 7, -1

A for i:=1 to 5 do write(A[2]); B for i:=1 to 5 do write(A[1]);

C for i:=1 to 5 do write(A[5]); D for i:=1 to 5 do write(A[i]);

Câu 7 Chọn phát biểu đúng cho biến d trong đoạn chương trình sau:

d:=0;

For i:=1 to N do if a[i] mod 4 =0 then d:=d+1;

A Tổng các phần tử lẻ

B Đếm các phần tử là bội số của 4 nĩ trong mảng a

C Tổng các phần tử là bội số của 4 nĩ trong mảng a

D Đếm các phần tử chẳn

Trang 6

Câu 9 Chọn phát biểu đúng cho biến t trong đoạn chương trình sau:

t:=0;

For i:=1 to N do if (a[i] mod 2=0) and (a[i]>25) then t:=t+1;

A Đếm các phần tử lớn hơn 25 trong mảng a

B Tổng các phần tử chẵn lớn hơn 25 trong mảng a

C Đếm các phần tử chẵn lớn hơn 25 trong mảng a

D Tổng các phần tử cĩ giá trị chẵn trong mảng a

M:=A[1]; csm:=1;

For i:=2 to n do

If A[i]<M then

Begin

M:=A[i];

csm:=i;

end;

Đoạn chương trình trên thức hiện cơng việc:

A Tìm chỉ số nhỏ nhất của dãy B Tìm chỉ số lớn nhất của dãy

C Tìm số nhỏ nhất của dãy vi tri cua no D Tìm số lớn nhất của dãy vi tri cua no

Câu 11 Trong NNLT Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?

i := 0; While i <> 0 do write(i, ' ');

A Lặp vô hạn việc đưa ra màn hình số 0 B Đưa ra màn hình 10

chữ số 0

C Không đưa ra thông tin gì D Đưa ra màn hình một chữ số 0

Câu 12 Cách viết nào sau đây là đúng trong câu lệnh lặp For:

A FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh> ;

B FOR <biến đếm> := <giá trị cuối> TO <giá trị đầu> DO <Câu lệnh> ;

C FOR <biến đếm> := <giá trị đầu> DOWNTO <giá trị cuối> DO <Câu lệnh> ;

D FOR <biến đếm> = <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh> ;

Câu 13 Điền vào ơ trống.Đếm các số chẵn

A[i] 9 7 4 26 10

Câu 14 Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau:

A.Tính tổng các phần tử của mảng một chiều; B In ra màn hình mảng A;

C Khơng thực hiện việc nào trong D Đếm số phần tử của mảng A;

A While (x>5) and (x<10); Do x:=x-1 B While (x>5) and (x<10) Do x:=x-1;

C While (x>5) and (x<10) Do x=x-1 D While x>5 and x<10 Do x:=x-1;

Câu 16 Chọn khai báo đúng :

A Var A= array[1 10] of integer; B Var A:= array[1 10] of integer;

C Var A: array[1,10] of integer; D.Var A: array[1 10] of integer;

Câu 17 Khai báo sau cho biết:

Const Max=200;

Type Ar = array[1 Max] of byte;

Var T: Ar;

A T là mảng cĩ thể chứa tối đa 200 số nguyên

B T khơng phải là mảng

C T là mảng cĩ thể chứa tối đa 200 số thực

D T là mảng chứa các số nguyên cĩ giá trị từ 1 đến 200;

S:=0;

For i:=1 To 10 Do

A Đoạn chương trình trên dùng tính tổng các số chẵn từ 1 đến 10

B Đoạn chương trình trên dùng tính tổng bình phương các số từ 1 đến 10

C Đoạn chương trình trên dùng tính tổng bình phương các số lẻ từ 1 đến 10

Trang 7

D Đoạn chương trình trên dùng tính tổng các số lẻ từ 1 đến 10

i:=1;

While i <3 do

Begin

End;

Câu 21 Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh gán đúng

A A(3) := 6 ; B A[1] := 4/2 ; C.A[2] := -6 ; D A := 10 ;

A s:=0; For i := 1 to n do if i mod 2 <> 0 then s := s + i;

B s:=0; For i := 1 to n do if i div 2 = 0 then s := s + i;

C s:=1; For i := 1 to n do if i mod 2 = 1 then s := s + i;

Câu 23 Điền vào ô trống

A[i] 6 7 4 12 13

MAX 6 7 7 (1) (2)

Các ô (1), (2), (3) lần lượt có giá trị là:

Câu 25 Trong khai báo sau còn bỏ trống một chỗ, vì chưa xác định kiểu dữ liệu của biến Max : Var A: Array['a' 'd'] of Real ;

Ch : Char ; Max : ;

Câu 26 Xét chương trình sau:

Var i, s: integer;

Begin

S:=0;

For i:=1 to 5 do s:=s+i;

Writeln(s);

End

Kết quả của chương trình trên là:

A Type mang1= array[1 5] of integer; var A: mang1;

B Type mang1= array[1 5] of integer; A: mang1;

C Type mang1= array of integer;

D Var A: mang1;

gt:=1;

Write(gt);

A write('a[' i ']=');readln(a[i]); B write('a[i]=');readln(a[i]);

Trang 8

C write("a[",i,"]=");readln(a[i]); D write('a[',i,']=');readln(a[i]);

Begin

End

A Nhập các phần tử cho mảng A B Đếm số các phần tử của mảng A

C Tính tổng các phần tử của mảng A D xuat các phần tử mảng A ra màn hình Câu 31 Điền vào ô trống.tổn các số lẻ

Câu 32 Cho khai báo

Var A: Array[1 4] of Integer ; i : Integer ;

sau khi thực hiện các lệnh

For i:=1 to 4 do A[i]:= i;

For i:=1 to 4 do A[i]:= A[i]+1;

thì mảng A có gía trị là :

A A[1]=1, A[2]=1, A[3]=1, A[4]=1 B A[1]=1, A[2]=2, A[3]=3, A[4]=4

C A[1]=0, A[2]=1, A[3]=2, A[4]=3 D A[1]=2, A[2]=3, A[3]=4, A[4]=5 Câu 33 Chương trình sau trả về giá trị bao nhiêu?

Var y, x, i:byte;

Begin

X:=20; i:=1; y = 0;

While i < x do

Begin

Y:=x+i;

i:=i+5;

end;

Writeln('gia tri cua y:= ',y);

End

Trang 9

Sở GD-ĐT Tỉnh Đồng Nai Kiểm tra 45 ' - HKII - Năm học: 2019- 2020 Trường THPT Thống Nhất Môn: Tin- Lớp: 11

Thời gian: 45' ( không tính thời gian giao đề)

01 ; / = ~ 10 ; / = ~ 19 ; / = ~ 28 ; / = ~

02 ; / = ~ 11 ; / = ~ 20 ; / = ~ 29 ; / = ~

03 ; / = ~ 12 ; / = ~ 21 ; / = ~ 30 ; / = ~

04 ; / = ~ 13 ; / = ~ 22 ; / = ~ 31 ; / = ~

05 ; / = ~ 14 ; / = ~ 23 ; / = ~ 32 ; / = ~

06 ; / = ~ 15 ; / = ~ 24 ; / = ~ 33 ; / = ~

07 ; / = ~ 16 ; / = ~ 25 ; / = ~

08 ; / = ~ 17 ; / = ~ 26 ; / = ~

09 ; / = ~ 18 ; / = ~ 27 ; / = ~

A s:=0; For i := 1 to n do if i mod 2 <> 0 then s := s + i;

B s:=0; For i := 1 to n do if i mod 2 = 0 then s := s + i;

C s:=0; For i := 1 to n do if i div 2 = 0 then s := s + i;

Câu 2 Trong khai báo sau còn bỏ trống một chỗ, vì chưa xác định kiểu dữ liệu của biến Max : Var A: Array['a' 'd'] of Real ;

Ch : Char ; Max : ;

i:=1;

While i <3 do

Begin

Write('Hello Word');

i:=i+2;

End;

Câu 4 Đoạn chương trình sau đây thực hiện công việc gì?

Begin

A Hoán đổi giá trị của hai biến a và b cho nhau

B Hoán đổi giá trị của hai biến b và c cho nhau

D Hoán đổi giá trị của hai biến a và c cho nhau

gt:=1;

Write(gt);

A Var Bang1 : Mang2; B Var 1Bang : Mang2;

Câu 8 Điền vào ô trống Đếm số chẵn

A[i] 9 7 4 26 10

Trang 10

S:=0;

For i:=1 To 10 Do

A Đoạn chương trình trên dùng tính tổng bình phương các số từ 1 đến 10

B Đoạn chương trình trên dùng tính tổng bình phương các số lẻ từ 1 đến 10

C Đoạn chương trình trên dùng tính tổng các số lẻ từ 1 đến 10

D Đoạn chương trình trên dùng tính tổng các số chẵn từ 1 đến 10

A While (x>5) and (x<10); Do x:=x-1 B While (x>5) and (x<10) Do x=x-1

C While x>5 and x<10 Do x:=x-1; D While (x>5) and (x<10) Do x:=x-1;

A[i] 6 7 4 12 13

MAX 6 7 7 (1) (2)

Các ô (1), (2), (3) lần lượt có giá trị là:

Begin

Readln

End

A Tính tổng các phần tử của mảng A B xuat các phần tử mảng A ra màn hình

C Đếm số các phần tử của mảng A D Nhập các phần tử cho mảng A

A[i] 9 7 4 26 10

M:=A[1]; csm:=1;

For i:=2 to n do

If A[i]<M then

Begin

M:=A[i];

csm:=i;

end;

Đoạn chương trình trên thức hiện công việc:

A Tìm chỉ số lớn nhất của dãy B Tìm số lớn nhất của dãy vi tri cua no

C Tìm số nhỏ nhất của dãy vi tri cua no D Tìm chỉ số nhỏ nhất của dãy

A write('a[' i ']=');readln(a[i]); B write('a[',i,']=');readln(a[i]);

C write('a[i]=');readln(a[i]); D write("a[",i,"]=");readln(a[i]);

Câu 17 Trong NNLT Pascal, giả sử mảng A có giá trị như sau:

A[1], A[2],…A[5] có giá trị lần lượt là 2, -3, 5, 7, -1

A for i:=1 to 5 do write(A[5]); B for i:=1 to 5 do write(A[1]);

C for i:=1 to 5 do write(A[i]); D for i:=1 to 5 do write(A[2]);

Câu 18 Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau:

A Không thực hiện việc nào trong B Đếm số phần tử của mảng A;

C.Tính tổng các phần tử của mảng một chiều; D In ra màn hình mảng A;

A Var A: mang1;

B Type mang1= array of integer;

Định dạng
Số trang	17
Dung lượng	615,22 KB