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.