Question

[Nguyễn Cảnh Hùng]

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình có bao nhiêu giá trị là số chẵn.

Answer 1

[Đỗ Ngọc Trinh]

Answer 2

[Lê Thị Thu Phương]

uses crt;
var a:array[1..1000000] of longint;
      n,i,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=0 then inc(d);
            end;
      write('Co ',d,' gia tri la so chan');
      readln;
end.