Bài 1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,d,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; s:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i]>0 then s:=s+A[i];
                If A[i]<0 then inc(d);
        End;
        Write(d,' ',s);
        Readln
End.

Bài 2:

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;
        Write(s/n:0:2);
        Readln
End.

Câu 1:

uses crt;
var a:array[1..100] of longint;
       n,i,d,s:longint;
begin
       clrscr;
       repeat
              write('Nhap so luong phan tu (n<100): '); readln(n);
              if n>=100 then writeln('NHAP LAI!');
       until n<100;
       for i:=1 to n do 
              begin
                     write('a[',i,']: '); readln(a[i]);
                     if a[i]>0 then inc(s,a[i]);
                     if a[i]<0 then inc(d);
              end;
       writeln('Tong so duong: ',s);
       writeln('Co ',d,' so am');
       readln;
end.

Câu 2:

uses crt;
var a:array[1..100] of longint;
       n,i,s:longint;
begin
       clrscr;
       repeat
              write('Nhap so luong phan tu (n<=100): '); readln(n);
              if n>100 then writeln('NHAP LAI!');
       until n<=100;
       for i:=1 to n do 
              begin
                     write('a[',i,']: '); readln(a[i]);
                     inc(s,a[i]);
              end;
       writeln('Tong: ',s);
       writeln('Trung binh: ',s/n:0:2);
       readln;
end.