не так как надо....

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

Элементы массива 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
вот так должно получиться! а получается по другому совершенно

____
1) Тема закрыта за КРОССПОСТИНГ!
Кросспостинг (создание одинаковых тем) запрещён правилами форума.

2) исходный код на форуме принято по правилам оформлять тегами: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[Lasur]

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

for i:=1 to N-1 do
a[i] := a[i+1];
a[N] := 0;

может так:

temp = a[1]
for i:=1 to N-1 do
 a[i] := a[i+1];
 a[N] := temp;

Соответственно вместо

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

for i:=N downto 2 do
a[i] := a[i-1];
a[1] := 0;

temp = a[N]
for i:=N downto 2 do
 a[i] := a[i-1];
a[1] := temp;

Кроме того, если сдвиг вправо выполнять с тем же массивом после сдвига влево, логично ожидать, что он вернется в исходное состояние.

Хотя, вопрос уже решен в вашей второй теме...