исправление.Паскаль

[dimka123]

программа- сдвиг влево и вправо
const N = 10;
var a: array [1..N] of integer;
i:integer;
begin
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln; writeln;
begin
for i:=1 to N-1 do
a[i] := a[i+1];
a[N] := 0;

writeln('После сдвига влево: ');
for i:=1 to N do
write(a[i],' ');
writeln; end;writeln;

for i:=N downto 2 do
a[i] := a[i-1];
a[1] := 0;
writeln('После сдвига вправо: ');
for i:=1 to N do
write(a[i],' ');
writeln;
end.
если мы сдвигаем влево то последний элемент должен равняться 1 т.е первому элементу который до сдвига.
[COLOR="Blue"]Элементы массива a:
1 54 20 26 94 11 9 84 56 97
После сдвига влево:
54 20 26 94 11 9 84 56 97 0 а если вправо то 97 54 и т.д а не 0 54

[Mad_Cat]

const N = 10;
var a: array [1..N] of integer;
i:integer;b:integer;
begin
randomize;
for i:=1 to N do
a[i] := Random(100)+1;
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln; writeln;
begin
b:=a[1];
for i:=1 to N-1 do
a[i] := a[i+1];
a[N] := b;

writeln('После сдвига влево: ');
for i:=1 to N do
write(a[i],' ');
writeln; end;writeln;
b:=a[n];
for i:=N downto 2 do
a[i] := a[i-1];
a[1] := b;
writeln('После сдвига вправо: ');
for i:=1 to N do
write(a[i],' ');
writeln;
end.

Элементы массива a:
84 43 17 78 50 46 26 78 11 49

После сдвига влево:
43 17 78 50 46 26 78 11 49 84

После сдвига вправо:
84 43 17 78 50 46 26 78 11 49

[Serge_Bliznykov]

крайний элемент нужно сохранять отдельно. например, так:

var a: array [1..N] of integer;
  i, a_dop : integer;
begin
  .......
  {циклический сдвиг влево}
  a_dop := a[1];
  for i:=1 to N-1 do
     a[i] := a[i+1];
  a[N] := a_dop;


  {циклический сдвиг вправо}
  a_dop := a[N];
  for i:=N downto 2 do
     a[i] := a[i-1];
  a[1] := a_dop;

Добавлено
да разве за Mad_Cat угонишься?!!!!

[dimka123]

например

Элементы массива a:
84 43 17 78 50 46 26 78 11 49

После сдвига влево:
43 17 78 50 46 26 78 11 49 84

После сдвига вправо:
49 84 43 17 78 50 46 26 78 11
вот так должно получиться!

[dimka123]

Сообщение от dimka123

например

Элементы массива a:
84 43 17 78 50 46 26 78 11 49

После сдвига влево:
43 17 78 50 46 26 78 11 49 84

После сдвига вправо:
49 84 43 17 78 50 46 26 78 11
вот так должно получиться!

а получается что при сдвиге вправо элементы не меняються!

[dimka123]

чуть не так!косячок по сдвигу вправо! массив не изменился!

[Mad_Cat]

то при сдвиге вправо элементы не меняються

какого, я не побоюсь этого слова, черта?
dimka123 хвораешь??? смотри был массив

84 43 17 78 50 46 26 78 11 49

ты его сдвинул влево он стал

43 17 78 50 46 26 78 11 49 84

про первоначальный забудь он изменился у тебя теперь этот массив! ты его
сдвинул вправо получил

84 43 17 78 50 46 26 78 11 49

первоначальный
если хочешь повыеживаться сдвигай его еще раз вправо

[Necare]

Юзайте поиск, тут такая прога на паскале уже писалась мною.