Tin học TÍNH SỐ TRUNG BÌNH CỦA "n" SỐ NGUYÊN (SỬ DỤNG HÀM FUNCTION). (3 điểm)

[HauBright]

[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.

Program NO_NAME;
Uses Crt;
Var
a: Array[1..1000] Of Integer;
n,i: Integer;
f: Real;

Function ADVERAGE: Real;
Var
t: Integer;
Begin
t := 0;
For i:=1 To n Do
t := t+a;
ADVERAGE := t/n;
End;
Begin
Clrscr;
Write('NHAP SO LUONG PHAN TU CO TRONG MANG: ');
Readln(n);
Writeln('========================================');
For i:=1 To n Do
Begin
Write('NHAP SO VAO PHAN TU a[',i,']: ');
Readln(a);
End;
f := ADVERAGE;
Writeln('KET QUA TRUNG BINH: ',f:2:1);
Readln;
End.