Hãy khai báo 1 mảng số thực tối đa 200 phần tử (bằng 2 cách).
BÀI 2: Chọn 1 câu trả lời đúng: Khai báo mảng số nguyên, tối đa 100 phần tử:
a. Type Mang = array [1….100] of integer;
Var A: Mang;
b. Var A: array [1..100] of byte;
c. Var A: array [1..100] of interger;
d. Type Mang = array [1..100] of real;
Var A: Mang;
BÀI 3: Chọn 1 câu trả lời đúng: Tham chiếu đến phần tử thứ nhất của mảng A:
a. A[1] b. A[2] c. A[3] d. A[n]
BÀI 4: Viết chương trình nhập vào 1 mảng số nguyên tối đa 100 phần tử. Hãy xuất mảng ra màn hình.
BÀI 5: Viết Chương trình nhập vào 1 mảng số nguyên tối đa 200 phần tử. Hãy đếm xem mảng trên có bao nhiêu phần tử?
BÀI 6: Viết chương trình nhập vào một mảng gồm n số nguyên (1 <= n <= 100), mỗi số có giá trị tuyệt đối không quá 500. Tính tổng giá trị các phần tử có giá trị chia hết cho k (k nhập từ bàn phím).
Bài 1:
C1:
Var A : array [1..200] of integer;
C2:
Const Nmax = 200;
Var a: Array[1..Nmax] Of integer;
Bài 4:
program Tin_hoc;
uses crt;
var i,n:integer;
a:array [1..100] of integer;
begin
write(‘Nhap so phan tu: ‘);readln(n);
writeln(‘Nhap ‘,n,’ phan tu:’);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do write(a[i],’ ‘);
readln;
end.
Bài 5:
program Tin_hoc;
uses crt;
var i,n:integer;
a:array[1..200] of integer;
begin
clrscr;
write(‘Nhap so phan tu: ‘);readln(n);
writeln(‘Nhap ‘,n,’ phan tu:’);
for i:= 1 to n do readln(a[i]);
writeln(‘Mang tren co ‘,n,’ phan tu’);
readln;
end.