Question

cho tệp vanban.txt lữu trữ điểm thi của 3 môn toán văn anh của học sinh lớp 11  a: tính điểm trung bình 3 môn của từng học sinh

b: đưa ra điểm thi trunh bình cao nhất 

giúp mình với, mình cảm ơn

 

Answer 1

uses crt;

const fi='vanban.txt'

var f1:text;

a,b,c,tb:array[1..100]of real;

ln:real;

n,i:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(a[n],b[n],c[n]);

end;

for i:=1 to n do tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do 

writeln(tb[i]:4:2);

ln:=0;

for i:=1 to n do 

  if ln<tb[i] then ln:=tb[i];

writeln(ln:4:2);

close(f1);

readln;

end.