Câu 1: A

Câu 2: D

Câu 3: C

Câu 4: B

Câu 5: A

Câu 6: A

Câu 7: C

Câu 8: D

Câu 9: A

Câu 10: B

Câu 11: C

Câu 12: D

Câu 13: 

-Giống: các phần tử đều có chỉ số và có cách truy cập đến các phần tử giống nhau

-Khác: 

+Kiểu xâu: có xâu kí tự, có các thủ tục như copy, delete, pos,...

+Mảng 1 chiều: có kiểu dữ liệu là integer, char, real,... 

Câu 14: 

program h247;
var s1, s2: string;
begin
  Write('Nhap xau s1 '); readln(s1);
  Write('Nhap xau s2 '); readln(s2);
  if length(s1) > length(s2) then Write('Xau s1 dai hon') else Write('Xau s2 dai hon');
  readln;
end.

Câu 15:

program h247;
var a:array[1..1000] of integer;
    tb: real;
    dem, i, sokhach: integer;
begin
  {a)}
  for i:=1 to 10 do
  begin
  Write('Nhap so khach toa thu ',i,' '); 
  readln(a[i]);
  sokhach:=sokhach+a[i];
  tb:=sokhach/10;
  end;
  {b)}
  Write('So khach trung binh moi toa la ', tb:0:0); Writeln;
  {c)}
  for i:=1 to 10 do if a[i]<tb then dem:=dem+1;
  Write('So toa co so khach it hon trung binh la ', dem);
  readln;
end.

1 A 

2 D

3C

4 B

5 A

6 A

7 C

8 D

9 A

10 B

11 C

12 D

PHẦN TỰ LUẬN

13

Giống

Các phần tử đều có chỉ số và có cách truy cập đến các phần tử giống nhau

Khác: 

Kiểu xâu

Mảng 1 chiều

Câu 14: 

program tamnguyen19102006;
var s1, s2: string;
begin
  Write('Nhap xau s1 ');

readln(s1);
  Write('Nhap xau s2 ');

readln(s2);
  if length(s1) > length(s2) then Write('Xau s1 dai hon') else Write('Xau s2 dai hon');
  readln;
end.

Câu 15:

program tamnguyen19102006;
var a:array[1..1000] of integer;
    tb: real;
    dem, i, sokhach: integer;
begin
  a)
  for i:=1 to 10 do
  begin
  Write('Nhap so khach toa thu ',i,' '); 
  readln(a[i]);
  sokhach:=sokhach+a[i];
  tb:=sokhach/10;
  end;
b)
  Write('So khach trung binh moi toa la ', tb:0:0); Writeln;
c)
  for i:=1 to 10 do if a[i]<tb then dem:=dem+1;
  Write('So toa co so khach it hon trung binh la ', dem);
  readln;
end.

PHẦN THỰC HÀNH

Bạn tự làm nha