BÀI TẬP 14: XUẤT PHẦN TỬ TẠI VỊ TRÍ CHẴN CÓ GIÁ TRỊ LẺ TRONG DÃY SỐ

Nhập vào một mảng A gồm N số nguyên a₁, a₂,…, a_n (5 ≤ N ≤ 100). Hãy viết chương trình in ra màn hình các phần tử ở vị trí chẵn có giá trị lẻ.

Nhập	Kết quả
Nhap N = 9 1  3  5  9  8  6  7  8  11	Phan tu thoa man la: 3  9
Nhập N = 5 1  2  3  4  5	Khong co phan tu thoa man

CODE THAM KHẢO:

program Bt14;

uses crt;

var i,N,d: integer;

    A,B: array[1..100] of integer;

begin

    clrscr;

    Repeat write('Nhap N = '); readln(n); until (n>=5) and (n<=100);

    for i:=1 to n do

    begin

        write('A[',i,']= ');

        readln(A[i]);

    end;

    d:=0;

    for i:=1 to n do

    if (i mod 2 = 0) and (A[i] mod 2 <>0) then

    begin

        d:=d+1;

        B[d]:=A[i];

    end;

    if d=0 then writeln('Khong co phan tu thoa man') else

    write('Phan tu thoa man la: ');

    for i:=1 to d do write(B[i],' ');

    readln;

end.