Дан массив a(4 найти максимальный элемент массива и его порядковый номер. на паскале.

Const n=4; var a: array [1..n] of real; i,max,j: integer; maxs: real; begin for i: = 1 to n do  readln(a[i]); for i: = 1 to n do   for j: = 1 to n do if a[i]> a[j] then begin maxs: =a[i]; max: =i; end; writeln(maxs,' ',max) end.

Исходные числа a(0), a(1), a(n - 1). пусть f(k - 1) — сумма сумм всех чисел из подстрок, кончающихся на числе с номером k - 1. вычислим f(k). f(k) = (a(0) + a(1) + a(2) + + a(k - 1) + a(k)) + (a(1) + a(2) + + a(k - 1) + a(k)) + (a(2) + + a(k - 1) + a(k)) + + (a(k - 1) + a(k)) + a(k) = f(k - 1) + (k + 1) * a(k) искомая сумма есть сумма всех f(k).   python 3.6: n = int( a = enumerate(map(int, s = f = 0 for k, ak in a:     f += (k + 1) * ak      s += f print(s) 

Исходные числа a(0), a(1), a(n - 1). пусть f(k - 1) — сумма сумм всех чисел из подстрок, кончающихся на числе с номером k - 1. вычислим f(k). f(k) = (a(0) + a(1) + a(2) + + a(k - 1) + a(k)) + (a(1) + a(2) + + a(k - 1) + a(k)) + (a(2) + + a(k - 1) + a(k)) + + (a(k - 1) + a(k)) + a(k) = f(k - 1) + (k + 1) * a(k) искомая сумма есть сумма всех f(k). python 3.6: n = int( a = enumerate(map(int, s = f = 0 for k, ak in a:     f += (k + 1) * ak      s += f print(s)