vct nhập số n vào mảng xuất ra các số có hàng đơn vị là 3.đếm xem có bao nhiêu số

0 bình luận về “vct nhập số n vào mảng xuất ra các số có hàng đơn vị là 3.đếm xem có bao nhiêu số”

1. Program NN;
   Uses crt;
   Type mang=array[1..1000] of longint;
   Var A: mang;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   Read(A[i]);
           d:=0;
           For i:=1 to n do
                   If A[i] mod 10 = 3 then
                   Begin
                           Write(A[i],’ ‘);
                           inc(d);
                   End;
           Writeln;
           Write(d);
           Readln
   End.

   Bình luận