(Câu 2. ( 2 điểm ) Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên gồm n số ( n > 1 và được nhập từ bàn phím ) . In ra màn hình các số lẻ của dãy .
(Câu 2. ( 2 điểm ) Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên gồm n số ( n > 1 và được nhập từ bàn phím ) . In ra màn hình các số lẻ của dãy .
uses crt;
var arr: array[1..100] of integer;
i, n: integer;
begin
clrscr;
write(‘Hay nhap do dai cua mang: ‘);
readln(n);
for i := 1 to n do
begin
write(‘Hay nhap phan tu mang arr[‘, i, ‘]: ‘);
readln(arr[i]);
end;
writeln(‘Cac so le trong mang: ‘);
for i := 1 to n do
begin
if arr[i] mod 2 = 1 then
write(arr[i], ‘ ‘);
end;
readln;
end.
uses crt;
var a: aray[1..100] of longint;
i,n: longint;
begin
clrscr;
repeat
write (‘nhap n: ‘); readln (n);
until n>1;
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 write(a[i],’ ‘);
readln
end.