Помогите пожалуйста:

        CONST N=100;
          var x: array [1..N] of real;
Преобразовать массив x по следующему правилу (x (к) - значение к-го элемента массива после преобразования):
          а)  x(k)=max (x(i))      при 1<=i<=k
          б) элементы массива распоожить в обратном порядке
          в) x(1)=x(1), x(N)=x(N), x(k)=(x(k)-1+x(k)+x(k)+1)/3   при k=2,3,...,n-1
          г) Элементы массива циклически сдвинуть на одну позицию влево: x(n)=-x(1), x(k) = x(k+1), при k=1,2,...,n-1
          д) Элементы массива циклически сдвинуть на две позиции влево.


      

к тому же один поста - один вопрос, а у тя их много)
И воообще все это не сложно!
Сядь, почитай книжку и сделай сам =)

a.
for i = 2 to n do
     if (x[i - 1] > x[i]) 
        then x[i] := x[i - 1];

b.
for i = 1 to n div 2 do
     begin
             tmp := x[i];
             x[i] := x[n - i + 1];
             x[n - i + 1] := tmp;
     end;

c.
for i = 2 to n - 1 do
     x[i] = x[i];
//Хех... посмотри на свою формулу... по-видимому ты ошибся где-то...

d.
for i = 1 to n do
     x[i] = x[i mod (n + 1) +1];

e. по аналогии с пред. пунктом

comp, а тег для ввода кода придумали для дураков?!


Это сообщение отредактировал(а) PrinceMike - 25.12.2006, 18:29

PrinceMike, без выражений пожалуйста...  

А что такое?     ведь тэг кода действительно придумали не от нечего делать  

Нет он не ошибся, там первое и последние значение присваивается напрямую, а все промежуточные, берутся средние, из трёх рядом стоящих.

Правила форума!  

Когда код достаточно сложный, тогда да, было бы уместно Ваше замечание.
А идиотские циклы, Я думаю, и без этих тэгов отлично смотрятся