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.
