Chương trình sau thực hiện yêu cầu
Var A: array [1..50] of byte; i, N:integer;
Begin
randomize;
N:=random(10);
for i:=1 to N do a[i]:= random(50);
for i:=N downto 1 do
if A[i] mod 2 <> 0 then
begin
writeln(a[i]); break;
end;
End.
Chọn một câu trả lời:
a. In ra số lẻ cuối cùng trong dãy (nếu có)
b. In ra số chẵn cuối cùng trong dãy (nếu có)
c. In ra số lẻ đầu tiên trong dãy (nếu có)
d. In ra số chẵn đầu tiên trong dãy (nếu có)
Mong mọi người giúp em với ạ:333
Chương trình sau thực hiện yêu cầu Var A: array [1..50] of byte; i, N:integer; Begin randomize; N:=random(10); for i:=1 to N do a[i]
By Maria
Chọn A