Bài 17: Chương trình con và phân loại

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

Cho tệp DATA.INP mỗi dòng chứa 1 số nguyên . Hãy viết chương trình pascal tính trung bình cộng các số kết quả ghi vào tệp KQ.OUT

Nguyễn Lê Phước Thịnh
27 tháng 4 2021 lúc 20:58

const fi='data.inp'

fo='kq.out'

var f1,f2:text;

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

i,n,t:integer;

begin

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

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

n:=0;

while not eoln(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t/n:4:2);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Thảo Hồ
Xem chi tiết
Nguyễn Văn Nhiên
Xem chi tiết
Nguyễn Thị Hải Ninh
Xem chi tiết
Như Thuần Nguyễn Đặng
Xem chi tiết
Munz
Xem chi tiết
Đạt Trần
Xem chi tiết
Thúy Hà
Xem chi tiết
Phong
Xem chi tiết
Thúy Hà
Xem chi tiết