uses crt; var n,i,sum:longint; a:array[1..100]of longint; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); inc(sum,a[i]); end; readln; write(sum/n:0:2); readln; end.
program mah; uses crt; var A: array[1..100] of integer; n, i: integer; tb: real; begin clrscr; write('Nhap n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); tb:=tb+A[i]; end; write('Trung binh = ', tb/n:3:2); readln end.