Viết dãy A gồm 5 số nguyên, in ra màn hình các phần tử là số lẻ.
1 câu trả lời
uses crt;
var i:word; a:array[1..10000] of integer;
begin
clrscr;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] mod 2=1 then writeln(a[i])
end;
readln
end.
Chúc bạn học tốt!
