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).
1 câu trả lời
Bài 1:
C1:
Var A : array [1..200] of integer;
C2:
Const Nmax = 200;
Var a: Array[1..Nmax] Of integer;
Bài 2: Đáp án C
Bài 3: Đáp án A
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.
Bài 6:
var n, i, k, s: longint;
a: array[1..105] of longint;
begin
readln(n, k);
for i := 1 to n do read(a[i]);
s := 0;
for i := 1 to n do
if a[i] mod k = 0 then s := s + a[i];
write(s);
readln
end.
