Viết chương trình nhập vào mảng A gồm N số nguyên (N<=200). Đếm và xuất ra màn hình thông báo cho biết trong mảng A có bao nhiêu giá trị khác 0 làm ơn

0 bình luận về “Viết chương trình nhập vào mảng A gồm N số nguyên (N<=200). Đếm và xuất ra màn hình thông báo cho biết trong mảng A có bao nhiêu giá trị khác 0 làm ơn”

1. program khac_0;

   uses crt;

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

        n,i,d:byte;

   begin

          clrscr;

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

          d:=0;

          for i:=1 to n do

                 begin

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

                        if A[i]<>0 then d:=d+1;

                 end;

          write(‘Co ‘,d,’ phan tu khac 0 trong mang’); 

          readln;

   end.

   Bình luận

2. var a: array[1..200] of integer;

         i, n, d: byte;

   Begin

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

       D:=0;

       For i:=1 to n do

          Begin

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

               If a[i]<>0 then inc(d);

          End;

      Write(‘co ‘, d, ‘ so khac 0’);

      Readln

   End.

   Bình luận