C4:

var n,i,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 end;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
 if max<a[i] then max:=a[i];
 if min>a[i] then min:=a[i];
end;
writelN('so lon nhat la:',max);
writeln('so be nhat la:',min);
readln;
end.

C5:

uses crt;
var n,i,max:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
max:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 max:=max+a[i];
 end;
write('tong day so la:',max);
readln;
end.

(mong dc 5*+hay nhất)

4.
uses crt;
var n,i,max,min: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    min:=a[1]; max:=a[1];
    for i:=2 to n do begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    write(max,' ',min);
    readln
end.
5.
uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        s:=s+a[i];
    end;
    write(s);
    readln
end.