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

Những câu hỏi liên quan
Nguyenngochang
Xem chi tiết
Nguyenngochang
Xem chi tiết
nguyễn quốc bảo
Xem chi tiết
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.

Nguyên Đăng
Xem chi tiết
Trịnh Thị Thu07
Xem chi tiết
Bàn Chàn Khuân
Xem chi tiết
Lê Thị Vân Anh
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
Đinh Tiến Hiếu
Xem chi tiết