Question

viết chương trình nhâp một mảng n số xuất ra các số lẻ trong mảng!!

Answer 1

mình bít câu này nak để mk giúp bạn

var i,n :integer;

a:array [1..100] of real;

begin

write('nhap so phan tu cua day n=');readln(n);

writeln('nhap gia tri cho cac phan tu cua day');

for i:=1 to n do

begin

write

Answer 2

uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then
writeln(a[i],' la so le');
readln;
end.