nhập vào 1 mảng . In mảng đã nhập và đếm số lượng phần tử dương, ân, bằng 0 của mảng

0 bình luận về “nhập vào 1 mảng . In mảng đã nhập và đếm số lượng phần tử dương, ân, bằng 0 của mảng”

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

         d0, dd, da, i, n: byte;

   Begin

       Write(‘n = ‘); readln(n);

       dd:=0; da:=0; d0:=0;

       For i:=1 to n do

          Begin

               Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

               If a[i]>0 then inc(dd)

               Else if a[i]<0 then inc(da)

               Else inc(d0);

          End;

      For i:=1 to n do write(a[i], ‘ ‘);

      Writeln;

      Writeln(‘so luong so duong: ‘, dd);

      Writeln(‘so luong so am: ‘, da);

      Write(‘so luong so 0: ‘, d0);

      Readln

   End.

   Trả lời