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.