PROGRAM MANG; VAR A

Câu 10. Program mang; Var a:array[1..100] of real; S:real; m, i: integer; BEGIN Writeln(‘nhap so phan tu cua mang’); Readln(m); S:= 0; For i:=1 to m do Begin Writeln(‘a[‘,I,’]=’); Readln(a[i]); S:=S + a[i]; End; Writeln(‘ trung binh cong cua day la:, s/m); Readln; END.