Люди!!Посмотрите задачку плиз!!! Опции

[jackal]

4. Задан двумерный целочисленный массив E размером 10 на 10 элементов. Написать процедуру для циклического сдвига вправо элементов тех строк массива, которые не содержат чисел, оканчивающихся на 7.
--------
Что такое циклич сдвиг?
Если сможете-помогите!!!
И ещё одна;
------

Const n=20;
Type vector= array[1..n] of integer;
Вычислить для вектора x:
4) x[n]*(x[n] + x[n-1])*(x[n] + x[n-1] + x[n-2])* ... *(x[n] + ... + x[1])
C Новым Годом!!!

[Ivs]

А во второй число большое получается, так что ненадо заполнять массив числами больше 3.

Код

uses crt;
const n=20;
var
  P:longint;
  i:integer;
  S:longint;
  vector:array[1..n] of integer;
begin
  ClrScr;
  for i:=1 to n do
  begin
                    vector[i]:=random(3)+1;
                    write(vector[i]:3);
  end;
  P:=1;
  S:=0;
  for i:=n downto 1 do
  begin
                         S:=S+vector[i];
                         P:=P*S;
  end;
  writeln;
  writeln(P);
  readln;
end.