Kết quả tìm kiếm

Program Tinh_tong; Uses crt; Var a:array[1..100] of real; n,i,s:integer; BEGIN clrscr; write('Nhap vao n phan tu: '); readln(n); for i:=1 to n do begin write('Nhap vao phan tu thu ',i,': '); readln(a); end; s:=0; for i:=1 to n do begin if a>0 then s:=s+a; end; write('Tong...

quy hoạch động bó tay