Nhập vào một dãy n số nguyên A[1],A[2],…,A[n] . Đọc ra màn hình số lượng các số dương liên tiếp nhiều nhất.

0 bình luận về “Nhập vào một dãy n số nguyên A[1],A[2],…,A[n] . Đọc ra màn hình số lượng các số dương liên tiếp nhiều nhất.”

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. program oken;
   uses crt;
   var a: array [1..100] of integer;
       n,i,dem,s:longint;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       s:=0; dem:=0;
       for i:=1 to n do
           begin
               write(‘a[‘,i,’]: ‘); readln(a[i]);
               if (a[i]>=0) then 
                   begin
                       dem:=dem+1;
                       s:=s+a[i];
                   end;
           end;
       writeln(‘Co ‘,dem,’ phan tu duong trong day.’);
       writeln(‘Tong ‘,dem,’ phan tu duong trong day: ‘,s);
       readln;
   end.

   Bình luận