VCT nhập vào 1 mảng sau đó in ra màn hình số phần tử khác 0 trong mảng

0 bình luận về “VCT nhập vào 1 mảng sau đó in ra màn hình số phần tử khác 0 trong mảng”

1. uses crt;

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

         i,n,dem: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

   if a[i]<>0 then dem:=dem+1;

   end;

   writeln (‘co ‘,dem,’ phan tu khac 0′);

   readln;

   end.

   Bình luận

2. uses crt;
   var n,i:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
         write(‘Cac so khac khong: ‘);
      for i:=1 to  n do if a[i]<>0 then write(a[i],’ ‘);
   readln
   end.

   Bình luận