uses crt;
var a: array [1..1000] of integer;
    i,n,s,max,min,s1: integer;
begin
    clrscr;
    write('nhap so luong phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('nhap so thu ',i,': '); readln(a[i]);
            s:=s+a[i];
            if a[i] mod 2 <> 0 then s1:=s1+a[i];
        end;
    max:=a[1]; min:=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;
    writeln('tong cac so trong day la: ',s);
    writeln('tong cac so le trong day la: ',s1);
    writeln('phan tu lon nhat la: ',max);
    writeln('phan tu nho nhat la: ',min);
    write('day vua nhap la:');
    for i:=1 to n do
        write(a[i]:4);
    readln;
end.

uses crt;

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

i,n,s,sl,max,min: integer;

begin

clrscr;

write ('nhap n: ');   readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (n);

s:=s+a[i];

if a[i] mod 2=1 then sl:=sl+a[i];

end;

max:=a[1];

min:=a[1];

for i:=2 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

writeln ('a/ Tong la: ',s);

writeln ('b/ Tong cac so le la: ',sl);

writeln ('c/ So lon nhat: ',max,'  ; So nho nhat: ',min);

writeln ('d/ Day vua nhap la:');

for i:=1 to n do write (a[i]:4);

readln;

end.