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 D. Bao gồm các phần tử trong mảng a 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. A. 1 B. 2 C. 3 D. 1 2 3 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. 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;
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