Question

Viết chtr đếm các phần tử là số nguyên lẻ của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả ra mang hình

Answer 1

program Dem;

var

      n, i, count: integer;

      arr: array[1..100] of integer;

begin

      writeln('Nhap vao so n: ');

      readln(n);

      writeln('Nhap vao day so: ');

      for i := 1 to n do

      begin

            readln(arr[i]);

      end;

      count := 0;

      for i := 1 to n do

      begin

            if(arr[i] mod 2 = 1) then

            begin

                  count := count + 1;

                  write(arr[i], ' ');

            end;

      end;

      writeln();

      writeln('Tong so phan tu la so nguyen le: ', count);

      readln;

end.