Nhập mãng n phần tử – nhập mãng – xuất mãng – đếm xe trong mãng có bao nhiêu phần tử lẻ lớn hơn 5

0 bình luận về “Nhập mãng n phần tử – nhập mãng – xuất mãng – đếm xe trong mãng có bao nhiêu phần tử lẻ lớn hơn 5”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If (A[i]>5) and (A[i] mod 2 = 1) then inc(d);
           End;
           For i:=1 to n do Write(A[i],’ ‘);
           Writeln;
           Write(d);
           Readln
   End.

   Bình luận