Tạo mảng A gồm n phần tử (n nhỏ hơn hoặc bằng 100 giá trị tuyệt đối không quá 300) tính tổng và giá trị trung bình của các phần tử trong mảng. (Pascal)

program sum1; uses crt; const nmax=100; type MyArray=array[1..nmax] of integer; var A:MyArray; s,n,i,k,posi,neg:integer; begin clrscr; randomize; write('Nhap N='); readln(n); for i:=1 to n do A[i]:=random(301)-random(301); for i:=1 to n do write(A[i]:5); writeln; s:=0; posi:=0;neg:=0; for i:=1 to n do if A[i] > 0 then posi:=posi+1 else neg:=neg+1; writeln(posi:4,neg:4); readln end.

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                s:=s+A[i];
        End;
        Writeln('S = ',s);
        Write('TBC = ',s/n:0:2);
        Readln
End.