program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,tong,dem:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(N);
        tong:=0; dem:=0;
        for i:=1 to n do
                begin
                        write('A[',i,']: '); readln(a[i]);
                        if a[i]>0 then
                                tong:=tong+a[i]
                        else
                                if a[i]<0 then
                                        dem:=dem+1;
                end;
        writeln('Tong cac phan tu duong trong mang: ',tong);
        writeln('Co ',dem,' phan tu am trong mang.');
        readln;
end.

Bài đầu tiên:

1/ var a:array[1..100] of longint;

2/

Program  BTH;
uses crt;
var a: array [1..100] of longint;
i,n,s,dem:longint;
begin
    clrscr;
    write('Nhap n: ');readln(n);
    s:=0; 
    dem:=0;
    for i:=1 to n do
        begin
            write('A[',i,']: ');readln(a[i]);
            if a[i]>0 then
                s:=s+a[i]
            else
                if a[i]<0 then
                    dem:=dem+1;
        end;
    writeln('Tong cac so duong trong mang: ',s);
    writeln('So phan tu am co trong mang la: ',dem);
    readln;
end.