Viết chương trình nhập vào từ bàn phím dãy n số nguyên (n<=100). Tính và đưa ra màn hình các thông tin sau a.số lượng số nguyên trong dãy b.tổng các s

uses crt;

var n,i:byte;

    a:array[1..100] of integer;

    tong:integer;

BEGIN

        clrscr;

        write(‘Nhap N:’); readln(n);

        tong:=0;

        for i:=1 to n do

        begin

                write(‘Nhap a[‘,i,’]:’);

                readln(a[i]);

                if a[i]>0 then tong:=tong+a[i];

        end;

        writeln(‘So luong cac so nguyen trong day:’,n);

        write(‘Tong cac so nguyen duong trong day:’,tong);

        readln

END.

Chúc bạn học tốt!