uses crt; var i:longint; t,s:real; a:array[1..100000]of real; begin clrscr; t:=1; for i:=1 to 100 do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); t:=t*a[i]; s:=s+a[i]; end; writeln('Tich: ',t:0:5); writeln('Trung binh cong: ',s/100:0:5); readln end.
