Массивы

[Mookapek]

Здравствуйте!
Помогите, пожалуйста решить такую задачу на Паскале:
В одномерном массиве, состоящем из N целочисленных элементов, вычислить:
1. Минимальный по модулю элемент массива.
2. Сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях.

P.S. я в Паскале слаб, поэтому надеюсь на вашу помощь.

[madmot]

1.

const n=20; {для примера...}
var a:array[1..n] of integer; 
  min:integer;
      i:byte;
begin
{--------------------------------------}
{здесь надо осуществить ввод массива}
{--------------------------------------}
min:=abs(a[1]);
for i:=2 to n do
  if abs(a[i])<min then min:=abs(a[i]);
writeln('min=',min:2);
end.

[madmot]

2.
Видимо придется делать за два прохода массива. Сначала в цикле ищем первый нулевой элемент (выйти из цикла можно оператором break), затем в новом цикле от него считаем сумму sum:=sum+abs(a[i])

[puporev]

Условия 1 и 2.

program mass1;
uses crt;
var a:array[1..100] of integer;
    n,min,sum,i,j:integer;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do
     begin
       a[i]:= random(5)-2;//взят маленький интервал, чтобы ноли были
       write(a[i],' ')
     end;
readln;
min:=abs(a[1]);                  //1 условие
for i:=2 to n do
if a[i]<min then begin min:=a[i];end;
write('min=',min);
readln;
sum:=0;
for i:=1 to n do             //2 условие
if a[i]= 0 then
  for j:=i+1 to n do
      begin sum:=sum+abs(a[j]);end;
write('sum=',sum);
readln;
end.

[Mookapek]

Всем спасибо. Вот осталось сделать такое: "Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях."
У меня получается только с помощью ввода дополнительного массива. А как сделать без доп. массива?

[puporev]

"Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях."

В условии не оговорено, сохранить последовательность, или не обязательно. Во втором случае код проще. На всякий случай сохранил, из сложного простое сделать легче, чем наоборот.

 
for i:=1 to n div 2 do
for j:=i to n-1 do
if j mod 2=i mod 2 then
    begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
    end;
for i:=(n div 2)+1 to n-2 do
for j:=i to n-1 do
if j mod 2<>i mod 2 then
    begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
    end;
for i:=1 to n do
write(a[i],' ');
readln;
end.

[pashqa]

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

В условии не оговорено, сохранить последовательность, или не обязательно. Во втором случае код проще. На всякий случай сохранил, из сложного простое сделать легче, чем наоборот.

 
for i:=1 to n div 2 do
for j:=i to n-1 do
if j mod 2=i mod 2 then
    begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
    end;
for i:=(n div 2)+1 to n-2 do
for j:=i to n-1 do
if j mod 2<>i mod 2 then
    begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
    end;
for i:=1 to n do
write(a[i],' ');
readln;
end.

Не могли бы вы описать полностью программу,а то что-то я сделал не так,она не хочет ставить сначала четные элементы а потом не четные...

[Serge_Bliznykov]

1) Вы обращайте внимание на дату сообщения.
Вы задаёте вопрос по программе, которая была опубликована 3 с половиной года назад!

2)

она не хочет ставить сначала четные элементы а потом не четные...

судя по заданию:

в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях

программа и не должна этого делать!
Она должна расставлять элементы, стоящие в ЧЁТНЫХ / НЕЧЁТНЫХ ПОЗИЦИЯХ! а не чётные/нечётные элементы..

p.s. я программу не анализировал.. верю в puporev'а

[MyLastHit]

1) Вы обращайте внимание на дату сообщения.
Вы задаёте вопрос по программе, которая была опубликована 3 с половиной года назад!

Serge_Bliznykov, это ж хорошо когда люди поиском пользоваться начинают! Такое нужно поощрять)

pashqa, тебе вары и begin написать что ли?

[pashqa]

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

1) Вы обращайте внимание на дату сообщения.
Вы задаёте вопрос по программе, которая была опубликована 3 с половиной года назад!

2)
судя по заданию:
программа и не должна этого делать!
Она должна расставлять элементы, стоящие в ЧЁТНЫХ / НЕЧЁТНЫХ ПОЗИЦИЯХ! а не чётные/нечётные элементы..

p.s. я программу не анализировал.. верю в puporev'а

Ну и что что 3.5 года назад)) мне надо было лучше создать новую тему?
P.S. извиняюсь) вопрос не совсем так поставил)) так все верно получается)) тока препод требует теперь через case и repeat/until