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ươ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




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