Bài 11: Kiểu mảng

Khai báo kiểu mảng nào sau đây hợp lệ:

• Var <tên biến mảng> : array[kiểu chỉ số] of <kiểu phần tử>;

• Var <tên biến mảng> :=array|kiểu chỉ số| of <kiểu phần tử>;

• Var <tên biến mảng> =array[kiểu chỉ số] of <kiểu phần tử>;

• Var <tên biến mảng> =array|kiểu chỉ số| of <kiểu phần tử>;

Xét đoạn chương trình sau:

M := a[1];

vt :=1;

For i := 2 to N do

            If a[i]< M then

Begin

                                    M :=a[i];

                                    vt := i;

                        End;

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Kết quả số nhỏ nhất nằm ở vị trí nào nếu trong dãy có nhiều số nhỏ nhất?

• Vị trí số nhỏ nhất đầu tiên

• Vị trí số nhỏ nhất cuối cùng

• Vị trí số nhỏ nhất nằm giữa

• Vị trí số nhỏ  nhất thứ ba

Xét đoạn chương trình sau:

For i := 1 to N do

            If a[i]< 0 then         

Begin

                                    Write(a[i], ‘ ‘);

                        End;

Nhập N = 5 và dãy số từ bàn phím gồm: 15; 21; -6; -18; 35. Sau khi thực hiện đoạn chương trình trên. Màn hình xuất ra kết quả như thế nào?

• 15; 21; 35

• 15; 21; -6; -18; 35

• -6; -18

• Không xuất ra kết quả nào

For i := 1 to N do

            If a[i] > 0 then        

Begin

                                    Write(a[i], ‘ ‘);

                        End;

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Màn hình xuất ra kết quả như thế nào?

• Các số chẵn

• Các số dương

• Các số âm

• Các số lẻ

Xét đoạn chương trình sau:

For i := 1 to N do

            Begin

                        Write(‘Nhap phan tu thu’, i, ‘=’);

                        Readln(a[i]);

            End;

Đoạn chương trình trên xác định các phần tử của dãy số như thế nào?

• Nhập từ bàn phím

• Tạo ngẩu nhiên

• Nhập từ cách khác

• Không tạo ra dãy số

Xét đoạn chương trình sau:

KQ :=1;

For i := 1 to N do

            If a[i] mod 2 = 0 then         

                        KQ := KQ *a[i];

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Kết quả KQ là gì?

• Tích các số chẵn

• Tổng các số chẵn

• Tích các số không chia hết cho 2

• Tổng các số không chia hết cho 2

Xét đoạn chương trình sau:

For i := 1 to N do

            Begin

                        Write(‘Nhap phan tu thu’, i, ‘=’);

                        Readln(a[i]);

            End;

Đoạn chương trình trên xác định các phần tử của dãy số như thế nào?

• Nhập từ bàn phím

• Tạo ngẩu nhiên

• Nhập từ cách khác

• Không tạo ra dãy số

Xét đoạn chương trình sau:

B := 0;

C :=0;

For i := 1 to N do

            If a[i] > 0 then        

Begin

                                    B :=B + a[i];

                                    C :=C + 1;

                        End;

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Số lượng phần tử dương trong dãy số A nằm trong biến nào?

• B

• C

• N

• I

Xét đoạn chương trình sau:

T := 0;

For i := 1 to N do

            If a[i] mod 2 = 1 then

                        T:= T + 1;    

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Kết quả T là gì?

• Đếm các số chia hết cho 2

• Đếm các số lẻ

• Đếm các số dư 1 và 2

• Đếm các số 2

Xét đoạn chương trình sau:

T := 0;

For i := 1 to N do

            If a[i] mod 2 = 1 then

                        T:= T + a[i];

Nhập dãy số từ bàn phím. Sau khi thực hiện đoạn chương trình trên. Kết quả T là gì?

• Tổng các số lẻ

• Tổng các số chia hết cho 2

• Tổng các số dư 1 và 2

• Tổng các số 2