Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mon_LAK

Đế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.

Anh Phạm
29 tháng 7 2021 lúc 15:21

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.

 

 


Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Cao Phạm Hà Anh
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Thu Hiền
Xem chi tiết
Nguyễn Phương Bằng
Xem chi tiết
No_sun
Xem chi tiết
Huệ Hà
Xem chi tiết
Hakita Nguyen
Xem chi tiết