Khai báo mảng 1 chiều tối đa 10 phần tử. Nhập và in mảng trên màn hình B tính tong các phần tử trong mảng C đếm số âm dương trong mảng

Program hotboy;

Uses crt;

Var a: array[1..10] of integer;

    s,i,n,am: integer ; 

Begin

 Clrscr;

 Write('Nhap so phan tu n:'); Readln(n);

 for i:=1 to n do begin

 Write('a[',i,'] = ');

    readln(a[i]);

  end;

        For i:=1 to n do

        Begin

if A[i]<0 then am:= am+1; 

writeln(a[i]);

end;

s:=s+a[i]; 

 writeln('Tong cac phan tu cua mang: ',s);

writeln('co so so am la. ',am);

readln

end.

Program BTT;
Uses crt;
Var A: array[1..10] of longint;
    n,i,da,dd,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        s:=0;
        Write('Cac phan tu cua mang la: ');
        For i:=1 to n do
        Begin
                Write(A[i],' ');
                s:=s+A[i];
                If A[i]>=0 then inc(dd);
                If A[i]<0 then inc(da);
        End;
        Writeln;
        Writeln('Tong cac phan tu cua mang: ',s);
        Write('Co ',dd,' so duong va ',da,' so am');
        Readln
End.