Câu 1:

 a) Var s:string;

 b) Var n:array[1..300] of byte;

Câu 2:

program boiso;
uses crt;
var m:array[1..300] of longint;n,k,i,t:integer;
BEGIN
clrscr;
write('Nhap so N: ');readln(n);
for i:=1 to n do
 Begin
  write('So thu ',i,' : ');
  readln(m[i]);
 End;
write('Nhap so k: ');readln(k);
for i:=1 to n do
 if m[i] mod k=0 then begin write(m[i]:3);t:=t+1 end;
if t=0 then writeln('Khong so nao thoa man dieu kien');
readln
END.

1 đến 4 mờ quá ạ.

5.D

6.A

7.C

8.A

9.C

10.C

Tự luận:

1.a) var s:string[255];

b)var a:aray[1..300]of integer;

2)

uses crt;
var i,n,k:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n,k=');readln(n,k);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod k<>0 then writeln(a[i]);
readln
end.