1) var a,b:array[1..100] of byte;
j:=1;

for i:=1 to n do if a[i] mod 5 = 0 then
begin 
b[j]:=a[i];
j:=j+1; 
end;
A. Bao gồm các phần tử của mảng a
B. Bao gồm các phần tử chia hết cho 5 trong mảng a
C. Bao gồm các phần tử chia hết cho 5 => a[i] chia hết cho 5 thì b[j] := a[i] => mảng b cũng bao gồm phần tử chia hết cho 5
D. Bao gồm các phần tử trong mảng a
2) var a:array[1..3] of byte;

    i:byte;
Begin
For i:=1 to 3 do a[i]:=i;
For i:=1 to 3 do
If a[i] mod 2 = 0 then Write(a[i]);
End. 

A. 1
B. 2 => i từ 1 đến 3 => i = 2 => a[2] = 2 mod 2 = 0 
C. 3
D. 1 2 3
3) var a:array[1..100] of byte; 
i,f,d:byte;
begin
for i:=1 to 100 do a[i]:=i;
d:=a[2]-a[1];
for i:=2 to 100 do if a[i]=a[i-1]+d then f:=1 else f:=0;
write(f);
readln
End.

=> a[1] = 1; a[2] = 2, .....

=> d := 2 - 1 = 1

=> a[2] = a[2 - 1] + d <=> 2 = a[1] + 1 <=> 2 = 1 + 1 => Đúng => f = 1
A. 0
B. 1
C. 100 số 0
D. 100 số 1

1) var a,b:array[1..100] of byte;
…
j:=1;
for i:=1 to n do if a[i] mod 5 = 0 then
 begin 
b[j]:=a[i];
j:=j+1; 
end;
C. Bao gồm các phần tử chia hết cho 5
2) 
ar a:array[1..3] of byte; i:byte;
 Begin
 For i:=1 to 3 do a[i]:=i;
 For i:=1 to 3 do
 If a[i] mod 2 = 0 then Write(a[i]);
End. 
B. 2
3) 
ar a:array[1..100] of byte; 
i,f,d:byte;
begin
 for i:=1 to 100 do a[i]:=i;
 d:=a[2]-a[1];
 for i:=2 to 100 do if a[i]=a[i-1]+d then f:=1 else f:=0;
 write(f);
readln
End.
B. 1
Giải thích(dưới ảnh)