Question

Cho tệp bai1.inp gồm:

Hàng 1:Chứa số nguyên N

Hàng 2:Chứa dãy số nguyên gồm N chữ số

Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên 

              -Ghi kết quả tổng và đếm vào tệp bai1.out

Answer 1

const fi='bai1.inp'

fo='bai1.out'

var f1,f2:text;

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

n,i,t,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

dem:=0;

for i:=1 to n do 

  begin

if a[i] mod 2<>0 then t:=t+a[i]

else inc(dem);

end;

writeln(f2,'Tong cac so le la: ',t);

writeln(f2,'So so chan la: ',dem);

close(f1);

close(f2);

end.