Nhập vào một dãy n số nguyên A[1].A[2]...A[n]. hãy tính a. Tổng các phần tử của dãy, b. Số lượng các số hạng dương và tổng của các số hạng dương.

uses crt;

var a:array[1..100000] of longint;

      i,n,s,t,d:longint;

begin

clrscr;

readln(n);

for i:=1 to n do read(a[i]);

s:=0;t:=0;d:=0;

for i:=1 to n do

 begin s:=s+a[i];

            if a[i]>0 then begin d:=d+1;

                                             t:=t+a[i];

                                   end;

 end;

writeln('a, ',s);

write('b, ',d,' ',t);

readln

end.

uses crt;

var A : array [1 .. 100] of integer;

i, N, S, S1, d1 : integer;

begin

clrscr;

S := 0; S1 := 0; d1 := 0;

write('Nhap so N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(A[i]);

        S := S + A[i];

        if A[i] > 0 then

            begin

                d1 := d1 + 1;

                S1 := S1 + A[i];

            end;

    end;

writeln('Tong cac phan tu = ', S);

writeln('Day co ', d1 ,' so duong');

writeln('Tong cac so duong = ', S1);

readln

end.