Bài 3: 

program bai3;

uses crt;

Var

          n,i,max,S,dem:integer;

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

Begin

          Clrscr;

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

          For i:=1 to n do readln(A[i]);

          Max:=A[1]; S:=0; dem:=0;

          For i:=1 to n do 

          Begin

                if A[i]<0 then

                  Begin

                     dem:=dem+1; if dem=1 then write('= (',A[i]) else write('+',A[i]);

                     S:=S+A[i]; 

                  End;

                If A[i]>max then max:=A[i];

          End;

          if dem=0 then writeln('=0') else writeln(')=',S);

          write('= ',max);

          readln;

End.

Bài 4:

program bai4;

uses crt;

var

          n,i,j,S,dem,t:integer;

          A,B:array[1..1000] of integer;

Begin

          Clrscr;

          write('n= '); readln(N);

          For i:=1 to n do readln(A[i]);

         S:=0; dem:=0;

         For i:=1 to n do if A[i] mod 2<>0 then 

         Begin

                     dem:=dem+1; if dem=1 then write('= (',A[i]) else write('+',A[i]);

                     S:=S+A[i]; 

        End;

        if dem=0 then writeln('=0') else writeln(')=',S);

         write('n= '); readln(N);

         For i:=1 to n do readln(B[i]);

         For i:=1 to n-1 do
         For j:=i+1 to n do If B[i]>B[j] then
         Begin
              t:=B[i]; B[i]:=B[j]; B[j]:=t;

         End;

         for i:=1 to n do write(B[i],' ');

         Readln;

End.

*2 chương trình trên e đã chạy được rồi nha

#HN

#Study_well!!

Bài 3:

uses crt;
var n,i,max,s:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   write('n=');readln(n);
   for i:=1 to n do read(a[i]); readln;
   max:=a[1];
   write('a) ');
   for i:=1 to n do  
      begin 
         if max<a[i] then max:=a[i];
         if a[i]<0 then 
            begin 
               if s=0 then write('= (',a[i]) else write('+',a[i]);
               s:=s+a[i]; 
            end;
      end;
   writeln(')=',s);
   writeln('b) = ',max);
readln
end.

Bài 4:

uses crt;
var n,i,s,t,j:longint; a:array[1..1000000]of longint;
begin 
clrscr;
   write('n=');readln(n);
   for i:=1 to n do read(a[i]); readln;
   write('a/ ');
   for i:=1 to n do  
      begin 
         if abs(a[i]) mod 2=1 then 
            begin 
               if s=0 then write('= (',a[i]) else write('+',a[i]);
               s:=s+a[i]; 
            end;
         for j:=1 to i do 
            if a[i]<a[j] then 
               begin
                  t:=a[i]; a[i]:=a[j]; a[j]:=t; 
               end;
      end;
   writeln(')=',s);
   write('b/ ');
   for i:=1 to n do write(a[i],' ');
readln
end.