Em xin mod cho topic sống sót hết đêm nay

[ca_doi_choi_game]

Thưa các bác.Em có cô em gái đang học năm 2 tài chính khoa hệ thống thông tin kinh tế.Giờ nó có 1 bài tập về môn toán rời rạc giải bằng pascal mong các bắc giúp em nó với.
đầu bài là thế này.
Cho 1 dãy số gồm n số nguyên a1,a2,...,an.
Tìm giá trị max của hàm f(i,j,k)=ai+2aj+3ak với 1<=i<=j<=k<=n.
Em biết lập topic thế này là sai quy định nhưng xin mod hãy thương em cho topic này sống sót hết đêm nay

---------- Post added at 22:05 ---------- Previous post was at 21:14 ----------

Xin mọi người hãy giúp đỡ em với

 

[DKGB123]

http://baigiang.violet.vn/present/show?entry_id=3504006 >> có phải cái này ko bạn, mình ko hoc nên cũng ko rành, mà thấy hồi đó thằng anh hay lên google search code để làm bài nên thủ làm theo

 

[[x]ros]

Có 2 trường hợp
Trường hợp 1: i,j,k được phép trùng.
Tìm a max trong dãy số.

	Max:=a[1];
	For i:=2 to n do
		If (a[i] > Max) then
		Begin
			Max:= a[i];
			VitriI:= i;
		End;

Khi đó f(i,j,k) = 6*Max.
Trường hợp 2: i, j,k không được phép trùng

	sumMax:= a[1] +a[2]+a[3];
	For i:=2 to n -2 do
		For j:=i+1 to n-1 do
			For k:= j+1 to n do
			begin
				SumF:= a[i] + a[j] + a[k];
				If sumMax< SumF then
				Begin
					sumMax:= SumF;
					vitriI:= i;
					vitriJ:= j;
					vitriK:= k;
				End;
			End;

Khi đó các sumMax, vitriI, vitriJ, vitriK là các giá trị cần tìm. Điều kiện n>=3.
Các biến bạn tự khai báo.

 

[ca_doi_choi_game]

Cám ơn bạn nhiều .

 

[Sợ ai đây?]

cái này chắc môn bắt buộc chứ chuyên môn mà ko biết làm thì...( bài này căn bản...)

 

[theflash2409]

học hệ thống thông tin kinh tế gì mà lại có pascal nhỉ cứ tưởng pascal chỉ nằm trong chương trình học phổ thông thôi chứ

cơ mà đúng là bài này là căn bản thật lớp 8,9 nó làm còn đc

 

[Guardian Wisp]

Thật ra bài này không phải căn bản đối với lớp 8,9 gì đâu.