giúp mình bài pascal này với!!

[yentatoo]

• Viết chương trình nhập n số nguyên.
• Tìm và in ra số lẻ nhỏ và lớn nhất.
• Tìm và in ra tổng của 2 số đó.

[akakavn]

• Viết chương trình nhập n số nguyên.
• Tìm và in ra số lẻ nhỏ và lớn nhất.
• Tìm và in ra tổng của 2 số đó.

var
    a:array[1..100] of integer;
    i,n:byte;max,min:integer;
begin
        readln(n);
        for i:=1 to n do readln(a[i]);
        max:=a[1];
        min:=a[1];
        for i:=1 to n do
             begin
                     if a[i]>max then max:=a[i];
                     if a[i]<min then min:=a[i];
             end;
        writeln('max=',max);
        writeln('min=',min);
        writeln('max+min=',max+min);
end.

[fbi098]

Yêu cầu là số lẻ lớn nhất và số lẻ nhỏ nhất mà bạn [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Sửa lại xíu xiu

var
    a:array[1..100] of integer;
    i,n:byte;max,min:integer;
begin
        readln(n);
        for i:=1 to n do readln(a[i]);
        max:=a[1];
        min:=a[1];
        for i:=1 to n do
             begin
                     if a[i] mod 2 = 1 and a[i]>max then max:=a[i];
                     if a[i] mod 2 = 1 and a[i]<min then min:=a[i];
             end;
        writeln('max=',max);
        writeln('min=',min);
        writeln('max+min=',max+min);
end.