Viết chương trình nhập vào từ bàn phím 1 dãy số nguyên gồm n phần tử N<=100. với N là số nguyên dương nhập vào từ bàn phím đưa ra màn hình a. các phần tử có giá trị lẻ trong dãy b.các phần tử có vị trí lẻ trong dãy
2 câu trả lời
Program baitap;
Uses crt;
Var A:array[1..100] of integer;
n,i:integer;
Begin
Clrscr;
Write('n='); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
Writeln('Cac phan tu co gia tri le:');
For i:=1 to n do
If A[i] mod 2=1 then writeln(A[i]);
Writeln('Cac phan tu co vi tri le:');
For i:=1 to n do
If i mod 2=1 then writeln(A[i]);
Readln
End.
uses crt;
var a : array[1..100] of integer;
i, n : integer;
begin
clrscr;
write('nhap so phan tu trong day : ');readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i , ' : ');readln(A[i]);
end;
write('cac phan tu co gia tri le : ');
for i := 1 to n do
if a[i] mod 2 <> 0 then write(a[i]:2);
writeln;
write('cac phan tu o vi tri le : ');
for i := 1 to n do
if i mod 2 <> 0 then write(a[i]:2);
readln
end.
