Cho mảng S gồm n số nguyên (n nhập từ bàn phím,n ≤ 100).Thực hiện các công việc sau : a) Nhập giá trị cho các phần tử của mảng b) In ra màn hình tổng các số dương và số lượng các số dương chạy trong mảng.

program soduong;

uses crt;

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

      n,i,dem,tong:integer;

begin

clrscr;

write('Nhap so luong phan tu cua mang S: ');   readln(n);

tong:=0;   dem:=0;

for i:=1 to n do

   begin

       write('S[',i,']= ');   readln(S[i]);

       if S[i]>0 then

           begin

                tong:=tong+S[i];

                dem:=dem+1;

            end;

    end;

if d=0 then write('Trong mang S khong co so duong nao')

else

   begin

      writeln('Tong cac so duong trong day la: ',tong);

      writeln('Va trong day co ',dem,' so duong');

   end;

readln

end.