Bài tập pascal cần mọi ngưòi giúp

[tettrungthu17896]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Trong cuộc chạy đường trường 20 km có B vận động viên tham gia.Kết quả của mỗi vận động viên được tính bằng giờ,phút,giây.Hãy lập chương trình pascal tính thành tích trung bình của các vận động viên này

 

[huutoan00]

uses crt;
var thisinh:array [1..10000] of record h,m,s,t:integer;
      s,b:longint;

function hms(h,m,s:longint):longint;
begin
 hms:=h*3600+m*60+s;
end;

procedure
begin
 readln(b);
 for i:=1 to b do
  with thisinh[i] do
    begin
     readln(h);readln(m);readln(s);t:=hsm(h,m,s);
     s:=s+hsm;
    end;
 s:=s div b;
write('thoi gian trung binh: ',s div 3600,'h');s:=s mod 3600;write(s div 60,'m');s:=s mod 60;write(s's');
end.