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: Нажмите что бы посмотреть