1. Đếm số âm của dãy số thực. 2. Đếm số dương của dãy số thực. (Dùng kiểu mảng)

0 bình luận về “1. Đếm số âm của dãy số thực. 2. Đếm số dương của dãy số thực. (Dùng kiểu mảng)”

1. 1.

   var n,i,d:longint;

          a: array [1..100] of real;

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

   for i:=1 to n do

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

   for i:=1 to n if a[i] > 0 then inc(d);

   write(‘So duong: ‘,d);

   writeln;

   end.

   2.

   var n,i,d:longint;

          a: array [1..100] of real;

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

   for i:=1 to n do

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

   for i:=1 to n if a[i] < 0 then inc(d);

   write(‘So am: ‘,d);

   writeln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..1000] of extended;
       n,i,da,dd: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           da:=0;
           dd:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   If A[i]>0 then inc(dd);
                   If A[i]<0 then inc(da);
           End;
           Writeln(‘Co ‘,dd,’ so duong va ‘,da,’ so am’);
           Readln
   End.

   Bình luận