Câu 1Cho dãy số nguyên nhập từ bàn phím . Hãy viết chương trình tìm các số chia hết cho 2 Câu 2: Nhập dãy số nguyên từ bàn phím . Tính tổng các số lẻ trong dãy

Câu 1:

uses crt;
var a:array[1..100] of integer;
    n,i:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do readln(a[i]);
        write('Cac so chia het cho 2: ');
        for i:=1 to n do
                if a[i] mod 2=0 then write(a[i],' ');
        readln
End.

Câu 2:

uses crt;
var a:array[1..100] of integer;
    n,i,t:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do
        begin
                readln(a[i]);
                if a[i] mod 2<>0 then t:=t+a[i];
        end;
        write('tong = ',t);
        readln
End.