|
| |
|
|
| |
для: Trianon
(20.12.2007 в 22:21)
| | | А все! Прокатило с дополнительным массивом :-) А с одним массивом, наверное надо использовать временную переменную и вложенный цикл. Но конкретно не знаю. | |
| |
|
|
| |
|
|
| |
для: ddhvvn
(20.12.2007 в 11:00)
| | | увеличить размер смассива или воспользоваться дополнительным - разница невелика | |
| |
|
|
| |
|
|
| |
для: Mookapek
(20.12.2007 в 00:55)
| | | Я думаю тут несколько вариантов, но мне приходит пока только один:
Увеличить размер массива, четные элементы добавлять с позиции 51...75, а нечетные 76...100, потом удалить элементы 0...50 (51..100 переместить в начало) | |
| |
|
|
| |
|
|
| |
для: Mookapek
(18.12.2007 в 19:20)
| | | Вот сколько уже пытаюсь, а без дополнительного массива никак не получается третью часть сделать :(
Форумчане, помогите! | |
| |
|
|
| |
|
|
| |
для: Mookapek
(18.12.2007 в 21:57)
| | | . | |
| |
|
|
| |
|
|
| |
для: Mookapek
(18.12.2007 в 20:07)
| | | Помогите кто-нибудь, пожалуйста! | |
| |
|
|
| |
|
|
| |
для: kasmanaft
(18.12.2007 в 19:58)
| | | А как можно реализовать задачу без дополнительного массива? | |
| |
|
|
| |
|
|
| |
для: Mookapek
(18.12.2007 в 19:20)
| | | Если можно завести еще один массив - тогда можно и так.
Только (i/2) замените на "i mod 2", а != на <>
>> А здесь по-моему в девятой строке надо писать if InpValue < 1... Или нет?
Да, точно.. | |
| |
|
|
| |
|
|
| |
для: cheops
(18.12.2007 в 00:30)
| | | А здесь по-моему в девятой строке надо писать if InpValue < 1... Или нет? | |
| |
|
|
| |
|
|
| |
для: Mookapek
(17.12.2007 в 23:47)
| | | Ну вот, осталась последняя часть:
"Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях."
Как я понимаю, позиция - это индекс массива имеется в виду? Если нет, то поправьте.
Вот, чтоя попытался сделать, но кажется, что неправильно:
array: B[1..50] of Integer;
...
...
{Третья часть}
m:=1;
for i:=1 to InpValue do
begin
if (i/2)=0 then begin B[m]=A[i]; m:=m+1; end;
end;
for i:=1 to InpValue do
begin
if (i/2)!=0 then begin B[m]=A[i]; m:=m+1; end;
end;
|
| |
| |
|
|
|
