Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.

0 bình luận về “Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.”

1. program dem_tong;

   uses crt;

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

         n,i,d,t:integer;

   begin

         clrscr;

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

         d:=0;   t:=0;

         for i:=1 to n do

               begin

                     write(‘A[‘,i,’]= ‘);   readln(A[i]);

                     if A[i]>0 then

                           begin

                                 d:=d+1;

                                 t:=t+A[i];

                           end;

               end;

         writeln(‘Co ‘,d,’ so duong’);

         writeln(‘Tong cac so duong la: ‘,t);

         readln;

   end.

   Bình luận

2. uses crt;
   var a:array[1..250]of longint;
     n,i,s,d:integer;
   begin
     clrscr;
     s:=0;d:=0;
     write(‘Nhap n: ‘);readln(n);
     for i:=1 to n do
       begin
         write(‘a[‘,i,’]: ‘);readln(a[i]);
       end;
     for i:=1 to n do if a[i]>0 then
       begin
         inc(d,1);
         inc(s,a[i]);
       end;
     writeln(‘Co ‘,d,’ so duong’);
     write(‘Tong cac so duong trong day: ‘,s);
   end.

   Bình luận