Const n=100;
Var x:Array[1..n] of Real;
Преобразовать массив X по следующему правилу (Хk -значение k-го элемента массива после преобразования):
а) xk=max(xi) при 1≤i≤k;
б) элементы массива расположить в обратном порядке;
в) x1=x1, xn= xn, xk=((xk-1)+xk+(xk+1))/3
при к=2,3,...,n-1;
help plzzz
хотя бы чуть чуть, нуна очень очень.
в "а)" нужно чтоб получился массив из вот этих максимумов