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)
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.
