Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số âm,số dương trong mảng. Đưa kết quả ra màn hình

0 bình luận về “Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số âm,số dương trong mảng. Đưa kết quả ra màn hình”

1. program ct;

   uses crt;

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

         i,n,d1,d2:integer;

         S1,S2:longint;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        S1:=0; S2:=0;

      for i:=1 to n do

        begin

           if A[i]>0 then 

             begin

                inc(d1);

                S1:=S1+A[i];

             end;

           if A[i]<0 then 

             begin

                inc(d2);

                S2:=S2+A[i];

             end;

        end;

      writeln(‘Co ‘,d1,’ so duong. Tong la: ‘,S1);

      writeln(‘Co ‘,d2,’ so am. Tong la: ‘,S2);

   readln;

   end.

   Học tốt!

   Bình luận

2. Uses Crt;
   Var i, n, S_am, S_duong, Dem_am, Dem_duong: integer;
       a: array [1..100] of integer;
   BEGIN
   Clrscr;
   S_am:=0;
   S_duong:=0;
   Dem_am:=0;
   Dem_duong:=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
                           Dem_am:=Dem_am+1;
                           S_am:=S_am+a[i];
                   End
           Else
                   Begin
                           Dem_duong:=Dem_duong+1;
                           S_duong:=S_duong+a[i];
                   End;
   Writeln(‘Co ‘,Dem_am,’ so am trong day, Tong= ‘,S_am);
   Write(‘Co ‘,Dem_duong,’ so duong trong day, Tong= ‘,S_duong);
   Readln;
   END.

   Bình luận