Question

Giúp mình câu này với

Viết chương trình đọc vào một mảng n số nguyên tệp dulieu.dat dòng đầu tiên ghi số nguyên n, dòng thứ hai ghi n số nguyên cách nhau bởi dấu cách. Tính

- Trung bình cộng các phần tử chẵn

- Trung bình cộng các phần tử lẻ

- Trung bình cộng các phần tử trong dãy

- Đưa kết quả ra màn hình

- Ghi kết quả vào tệp 'kq.out' (trên 3 dòng khác nhau)

Answer 1

Program HOC24;

const fi='dulieu.dat';

fo='kq.out';

var f: text;

t,t1,t2: longint;

i,n,d,d1: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

d:=0; d1:=0; t:=0; t1:=0; t2:=0;

for i:=1 to n do

begin

read(f,a[i]);

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

d:=d+1;

end;

if a[i] mod 2<>0 then

begin

t2:=t2+a[i];

d1:=d1+1;

end;

t:=t+a[i];

end;

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,t1/d:1:2);

writeln(f,t2/d1:1:2);

write(f,t/n:1:2);

close(f);

end;

begin

ip;

out;

end.