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.