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.

Câu 1 :

uses crt;

var A : array [1 .. 100] of integer;

i, n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

write('Cac phan tu 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;

i, n, S : integer;

begin

clrscr;

S := 0;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

for i := 1 to n do begin read(A[i]);

if A[i] mod 2 <> 0 then S := S + A[i]; end;

write('Tong cac so le = ', S);

readln

end.