câu1: Khai báo mãng 1 chiều gồm 10 phần tử số nguyên dương trong phạm vi [500..10000] Câu 2: Nhập mãng 1 chiều khai báo ở câu 1
2 câu trả lời
C1:
var a:array[1..10] of word;
C2:
for i:=1 to 10 do
writeln('nhap a',i);readln(a[i]);
Câu 1:
Var A:array[1..10] of integer;
Câu 2:
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
