Цитата:
Сообщение от Шипа
Vladimir_S у меня и моего преподавателя возникли проблемы с выполнением 3 пункта не могли бы вы посмотреть в чём ошибка
|
Знаете... ну вот решительно не могу уловить смысла Вашего алгоритма. Поэтому всё, чем могу помочь - предложить свой вариант.
Вместо
Код:
a:array[1..100] of integer;
пишем
Код:
a,b:array[1..100] of integer;
Дальше выполняем пп 1,2, а затем:
Код:
k:=0;
for i:=1 to N do
if (i mod 2)=1 then
begin
Inc(k);
b[k]:=a[i];
end;
for i:=2 to N do
if (i mod 2)=0 then
begin
Inc(k);
b[k]:=a[i];
end;
a:=b;
Можно было бы конечно и покрасивее, в одном цикле, но тогда возникают заморочки с четностью числа N, так что я предпочел, как попроще.