Viết ct pascal nhập vào một dãy gồm N phần tưáu đó: 1) tính tổng giá trị các phần tử của dãy. 2) tính tổng giá trị dương các phần tử của dãy. 3) tính giá trị âm lớn nhất của dãy.

uses crt;
var a:array[1..10000] of longint;
      n,i,s,sd,sa:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  inc(s,a[i]);
                  if a[i]>0 then inc(sd,a[i]);
                  if a[i]<0 then inc(sa,a[i]);
            end;
      writeln('Tong cac phan tu: ',s);
      writeln('Tong cac phan tu duong: ',sd);
      write('Tong cac phan tu am: ',sa);
      readln;
end.

program bai_giai;
uses crt;
var A:array[1..10000] of intger;
    n,i,t,td,sa:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    t:=0; td:=0;   sa:=0;
    for i:=1 to n do
        begin
            t:=t+A[i];
            if A[i]>0 then td:=td+A[i];
            if A[i]<0 then
                begin
                    if sa=0 then sa:=A[i]
                        else if A[i]>sa then sa:=A[i];
                end;
        end;
    writeln('Tong: ',t);
    writeln('Tong duong: ',td);
    writeln('So am lon nhat: ',sa);
    readln;
end.