Program NN;
Uses crt;
Type mang=array[1..1000] of longint;
Var A: mang;
    n,i,s: longint;

Function ktra(A: mang;n: longint): boolean;
Var i: longint;
Begin
        For i:=1 to n-1 do
                If (A[i]>A[i+1]) then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 2 <> 0 then s:=s+A[i];
        End;
        Writeln(s);
        If ktra(A,n) then Write('YES')
        Else Write('NO');
        Readln
End.

uses crt;

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

i, n, d, s : integer;

begin

clrscr;

s := 0;

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

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

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

if a[i] mod 2 <> 0 then s := s + a[i]; end;

i := 1; d := 1; while (i < n) and (d = 1) do

begin if a[i] < a[i + 1] then d := 0;

i := i + 1; end;

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

if d = 1 then writeln('Mang co tinh giam')

else writeln('Mang khong co tinh giam');

readln

end.