Câu 2: viết lệnh nhập dữ liệu từ bàn phím sao cho mảng A có 5 phân tử là số nguyên.
Câu 3: cho khai báo mảng như sau:
Var A: array[1..50] of integer;
hãy viết lệnh in giá trị phân tử thứ 20 của A ra màn hình.
Câu 4: viết lệnh khai báo mảng B có tối đa 30 phân tử thuộc kiểu số thực.
Câu 5: viết lệnh nhập dữ liệu từ bàn phím cho mảng B có 12 phân tử là số thực.
Câu 6: viết chương trình khai báo mảng A có tối đa 20 phân tử, thuộc kiểu số nguyên. nhập giá trị cho các phân tử của mảng A. In giá trị các phân tử của mảng A ra màn hình.
Câu 2: for i:=1 to 5 do readln(A[i]);
Câu 3: write(A[20]);
Câu 4: var B:array[1..30] of real;
Câu 5: for i:=1 to 12 do readln(B[i]);
Câu 6:
program nhap_in;
uses crt;
var A:array[1..20] of integer;
n,i:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
write(‘Mang A la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.
Câu 2: for i:=1 to 5 do readln(a[i]);
Câu 3: write(a[20]);
Câu 4: Var B: array[1..30] of real;
Câu 5: for i:=1 to 12 do readln(b[i]);
Câu 6:
uses crt;
var i,j,n:longint;
a:array[1..20] of longint;
begin
clrscr;
write(‘Nhap so phan tu: ‘);readln(n);
for i:=1 to n Do
begin
write(‘A[‘,i,’]=’);readln(a[i]);
end;
for i:=1 to n do write(a[i],’ ‘);
readln
end.