uses crt; var A:array[1..1000] of integer; n,i,tong:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(A[i]); tong:=tong+A[i]; end; write('Tong la: ',tong); writeln; write('Trung binh cong la: ',tong/n:4:2); readln end.
