Bài 1:

Var A:ARRAY[1..200] of real;

Bài 2:

A: Sử dụng "=" -> loại

B: Kiểu số nguyên mà dùng "byte" -> loại

D: Sử dụng "Type" khai báo mảng -> loại

⇒C 

Bài 4:

Uses crt;

Var n,i:integer;

B:ARRAY[1..100] of integer;

begin

write('Nhap do dai day, n = '); readln(n);

For i:=1 to n do

begin 

write('So thu B[',i,'] la: '); readln(B[i]);

end;

writeln('Mang la: ',B[i]);

end.

Câu 1:

Cách 1: Var A: array[1..200] of extended;

Cách 2:

Type mang = array[1..200] of extended;

Var A: mang;

Câu 2:

A. Đúng

B. Sai (Byte chỉ chứa số nguyên dương từ 0 -> 255)

C. Đúng

D. Sai (Real là số thực)

Câu 3: A[1]: Tham chiếu đến phần tử thứ 1

=> Đáp án A

Câu 4:

Program Arr;
Uses crt;
Var A: array[1..100] of longint;
    n, i: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);

        Write('Mang vua nhap: ');

        For i:=1 to n do Write(A[i],' ');
        Readln
End.

Câu 5:

Program Arr;
Uses crt;
Var A: array[1..100] of longint;
    n, i: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        Write('Mang co ',n,' phan tu');
        Readln
End.