Nhập vào 1 dãy n số nguyên A[1],A[2],…,A[n]. Đọc ra màn hình các thông tin sau: Số lượng các số hạng dương và tổng của các số hạng dương

0 bình luận về “Nhập vào 1 dãy n số nguyên A[1],A[2],…,A[n]. Đọc ra màn hình các thông tin sau: Số lượng các số hạng dương và tổng của các số hạng dương”

1. var n,i,d:longint;
       a,t:int64;
   begin
   write(‘Nhap n: ‘); readln(n);
   write(‘Nhap cac phan tu cua day: ‘);
   for i:=1 to n do begin
                    read(a);
                    if a>0 then begin
                                inc(d);
                                t:=t+a;
                                end;
                    end;
   writeln(‘So phan tu duong trong day la: ‘,d);
   write(‘Tong cac phan tu duong trong day la: ‘,t)

   Bình luận

2. var n,i,d:longint;
       a,t:int64;
   begin
   write(‘Nhap n: ‘); readln(n);
   write(‘Nhap cac phan tu cua day: ‘);
   for i:=1 to n do begin
                    read(a);
                    if a>0 then begin
                                inc(d);
                                t:=t+a;
                                end;
                    end;
   writeln(‘So phan tu duong trong day la: ‘,d);
   write(‘Tong cac phan tu duong trong day la: ‘,t);
   end.

   Bình luận