Question

Cho tệp T.TXT gồm n số nguyên ( mỗi số nằm trên 1 dòng). Viết chương trình đọc các số từ tệp trên rồi sử dụng mảng để tính Min, Max , trung bình cộng của các số đó rồi in ra màn hình.

Answer 1

Program HOC24;

const fi='T.TXT';

var f: text;

i,n,min,max: integer;

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

tb: longint;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do readln(f,a[i]);

close(f);

end;

begin

ip;

min:=32000; max:=0;

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

tb:=tb+a[i];

end;

writeln('Gia tri nho nhat cua day la : ',min);

writeln('Gia tri lon nhat cua day la : ',max);

write('Trung binh cong cua day la : ',tb/n:1:2);

readln

end.