program ct;

uses crt;

var i,n,S:integer; 

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

begin

clrscr;

  write(‘nhap n:=’);readln(n);

    for i:=1 to n do

begin

  write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

end;

  writeln(‘day so vua nhap la’);

     for i:=1 to n do

  write(A[i],’  ‘);

  S:=0;

    for i:=1 to n do

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

     writeln(‘tong la:’,S);

readln

end.

for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
a[i] := x;
end;

// In dãy số đã nhập
writeln('Day so da nhap: ');
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln;

// Tính tổng các số chẵn trong dãy
tong := 0;
for i := 1 to n do
begin
if a[i] mod 2 = 0 then
begin
tong := tong + a[i];
end;
end;

// In tổng các số chẵn trong dãy
writeln('Tong cac so chan trong day: ', tong);

readln;
end.

program <Tên bạn tự chọn>;

uses crt;

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

i, n, Max, Min: integer;

begin

clrscr;

writeln('Nhap so luong so nguyen:'); readln(n);

for i:=1 to n do begin writeln('A[',i,']='); readln (A[i]) end;

writeln('Cac so chan trong day so la:');

for i:=1 to n do

if A[i] mod 2 = 0 then writeln(A[i]);

writeln('Cac so le trong day so la:');

for i:=1 to n do

if A[i] mod 2 = 1 then writeln(A[i]);

Max:=A[1];

for i:=2 to n do

if Max<A[i] then Max:=A[i];

Min:=A[1];

for i:=2 to n do

if Min>A[i] then Min:=A[i];

writeln('So nho nhat trong day so la', Min);

writeln('So lon nhat trong day so la', Max);

readln

end.