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]

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

0 bình luận về “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]”

Viết một bình luận