uses crt;
var n,i,tong,s,min:integer;
    M:array[1..100] of integer;
begin
        clrscr;
        write('Nhap n: '); readln(n);
                for i:=1 to n do
                        begin
                                write('M[',i,']=');
                                readln(M[i]);
                        end;
        tong:=0;
        s:=0;
                for i:=1 to n do
                        begin
                                if M[i] mod 2=0 then tong:=tong+M[i];
                                if M[i] mod 2=1 then s:=s+M[i];
                        end;
        writeln('Tong cac so chan: ',tong);
        writeln('Tong cac so le: ',s);
        min:=M[1];
                for i:=1 to n do
                if min>M[i] then min:=M[i];
        write('So nho nhat trong day tren: ',min);
      readln

end.

- Chương trình 1 :

uses crt;

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

i, n, s1, s2 : integer;

begin

clrscr;

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

s1 := 0; s2 := 0;

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' : ');

        readln(A[i]);

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

        else s2 := s2 + A[i];

    end;

writeln('Tong cac so chan = ', s1);

writeln('Tong cac so le = ', s2);

readln

end.

- Chương trình 2 :

uses crt;

var M : array [1 .. 10] of integer;

i, N : integer;

begin

clrscr;

for i := 1 to 10 do

    begin

        write('Nhap so thu ', i ,' : ');

        readln(M[i]);

    end;

N := M[1];

for i := 2 to 10 do

    if M[i] < N then N := M[i];

write('So nho nhat : ', N);

readln

end.