uses crt; var a:array[1..100]of integer; i,n,t,max:integer; tbc:real; begin clrscr; write('nhap so phan tu:'); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;
Program BTT; Uses crt; Var A: array[1..100] of extended; n,i,s: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); s:=s+A[i]; End;