for i:=1 to N do 
 { поменять местами A[i] и A[N+1-i] }
сумма индексов N+1
N div 2
do
                                
4
6
?
4
6
4
x
y
c
c := x;
x := y;
y := c;
x := y;
y := x;
3
2
1
                                
 for i:=1 to N div 2 do begin
  c:=A[i]; A[i]:=A[N+1-i]; A[N+1-i]:=c;
 end;
                                
for i:=1 to N-1 do 
 A[i]:=A[i+1];
почему не N?
                                
 c := A[1];
 for i:=1 to N-1 do A[i]:=A[i+1]; 
 A[N] := c;
                                
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть