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

[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]

Если не ошибаюсь то циклический сдвиг - это операция сдвига битов, выходящих за пределы выражения или слова в другой конец...

AlaRic, ты это о чем ????? Какие еще биты?????

Вот прога, но она без процедуры, т.к 2-х мерный массив нельзя передовать в качестве параматра в процедуру (или можно???)
Но на самом деле можно создать вспомогательный одномерный массив и работать с ним, но, если честно, - что-то не хочется.

Код

uses crt;
const n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,k,x,g:integer;
begin
  ClrScr;
  for i:=1 to n do
  begin
     for j:=1 to n do
     begin
      a[i,j]:=random(50);
      write(a[i,j]:3);
     end;
     writeln;
  end;

  for i:=1 to n do
  begin
     k:=0;
     for j:=1 to n do
     begin
      if a[i,j] mod 10=7 then begin k:=1;break;end;
     end;
     if k=0 then
     begin
      x:=a[i,n];
      for g:=n downto 2 do a[i,g]:=a[i,g-1];
      a[i,1]:=x;
     end;
  end;
  writeln;
  for i:=1 to n do
  begin
     for j:=1 to n do write(a[i,j]:3);
     writeln;
  end;
  readln;
end.