Question

Đếm các cặp số trong dãy thỏa mãn điều kiện: tổng là số chẵn.

Dữ liệu vào: Đọc từ file văn bản BAI2.INP có cấu trúc như sau:

Dòng đầu tiên ghi giá trị n là độ dài của dãy số. (1<=n<=10000)

Dòng thứ 2 là n số của dãy số nguyên được viết cách nhau ít nhất một dấu cách.

Kết quả: Ghi ra file văn bản BAI2.OUT một số duy nhất là số cặp có tổng là số chẵn.

Answer 1

uses crt;

var f,g:text;

n,i,m,k,j:integer;

a:array[1..10000] of integer;

const fi='BAI2.INP' fo='BAI2.OUT'

begin

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,n);

for i:=1 to n do

readln(f,a[i]);

for i:=1 to n do

begin

m:=a[i];

for j:=i+1 to n do

if odd(m+a[j])=false then k:=k+1;

end;

write(g,k);

close(f);

close(g);

end.