Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyễn quốc bảo

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

 

Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:04

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.


Các câu hỏi tương tự
Hoàn Phạm
Xem chi tiết
Đào Xuân Trọng
Xem chi tiết
Tin Tin
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Nhã Linh
Xem chi tiết
duc tran
Xem chi tiết
Vũ Thắng
Xem chi tiết
Huy Nguyễn
Xem chi tiết
NGUYỄN THỊ KIM CHI
Xem chi tiết