Работа с массивами

[pashqa]

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

[j2ko]

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

[pashqa]

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

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

был бы очень признателен,если бы помогли решить...

[OlegVE]

Здравствуйте
http://www.google.com/search?hl=ru&s...&aqi=&aql=&oq=
До свидания
P.S. Минус Вам добавить?

[pashqa]

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

Здравствуйте
http://www.google.com/search?hl=ru&s...&aqi=&aql=&oq=
До свидания
P.S. Минус Вам добавить?

я видел то сообщение,но мне требуется чуть подругому,там решено без репит антил,я бы переделал ту,но у меня навыков мало,понимаю паскаль слабо...так что извините

[j2ko]

program z21;
const N=5;
var 
  O : array [1..N] of integer;
  i : word;
  min:word;
begin
  writeln('Enter ',N,' elements  of array:');
  writeln;
  for i:=1 to N do
    read(O[i]);
  writeln('Minimal by ansolute value element is:');
  min:=abs(O[1]);
  i:=2;
  repeat 
     if(min>abs(O[i])) then
          min:=abs(O[i]);
     i:=i+1;
  until i>N;
  writeln('  ',min);
  readln;
end.

[j2ko]

program z22;
const N=5;
var 
  O : array [1..N] of integer;
  i : word;
  sum:word;
begin
  writeln('Enter ',N,' elements  of array:');
  writeln;
  for i:=1 to N do
    read(O[i]);
  writeln('Sum element by absolute value after zero is:');
  sum:=0;
  i:=0;
  repeat 
     i:=i+1;
  until ((O[i])=0) or (i=N);

  if(i<N)then
  repeat 
     i:=i+1;
     sum:=sum+abs(O[i]); 
  until i=N;
  writeln('  ',sum);
  readln;
end.

[j2ko]

program z23;
const N=10;
var 
  O : array [1..N] of integer;
  i : word;
  mid:word;
  tmp:word;
begin
  writeln('Enter ',N,' elements  of array:');
  for i:=1 to N do
    read(O[i]);
  writeln('Before replace:');
  for i:=1 to N-1 do 
     write(O[i],' ,');
     write(O[i+1]);  
     
  i:=1;
  mid := N div 2;
  repeat 
    if(i mod 2 <> 0) then
    begin
      {swap}
       tmp:=O[i];
       O[i]:=O[i+mid];
       O[i+mid]:=tmp      
    end;
    i:=i+1
  until i>mid;
  writeln;
  writeln('After replace :');
  for i:=1 to N-1 do 
     write(O[i],' ,');
     write(O[i+1]);
  readln;
end.

[j2ko]

program z;
uses crt;
const N=5;
var
  O : array [1..N] of integer;
  i : word;
function GetMinimal:integer;
var
 min:word;
begin
  min:=abs(O[1]);
  i:=2;
  repeat 
     if(min>abs(O[i])) then
          min:=abs(O[i]);
     i:=i+1;
  until i>N;
  GetMinimal:=min;
end;


function SumAfterZero:longint;
var 
  sum:longint;
begin
  sum:=0;
  i:=0;
  repeat 
     i:=i+1;
  until ((O[i])=0) or (i=N);

  if(i<N)then
  repeat 
     i:=i+1;
     sum:=sum+abs(O[i]); 
  until i=N;
  SumAfterZero:=sum;
end;
procedure  Replase;
var
 mid:word;
 tmp:integer;
begin
 i:=1;
  mid := N div 2;
  repeat
    if(i mod 2 <> 0) then
    begin
      {swap}
       tmp:=O[i];
       O[i]:=O[i+mid];
       O[i+mid]:=tmp      
    end;
    i:=i+1
  until i>mid;
end;
procedure PrintArray;
var 
 i:word;
begin
 for i:=1 to N-1 do
     write(O[i],',');
     writeln(O[N]);
end;
begin
  writeln('Enter ',N,' elements  of array:');
  writeln;
  for i:=1 to N do
    read(O[i]);
  while true do
  begin
  clrscr;
  writeln('Array:');
  PrintArray;
  writeln('Commands:');
  writeln(' 1)Get minimal by absolute value');
  writeln(' 2)Get sum alements after zero');
  writeln(' 3)Replace array elements');
  writeln(' 4)Change array');
  writeln(' 5)exit');
  write('Choose:');
  readln(i);
  if (i<1) or (i>6) then
  begin
        writeln('Error!Command with such number does not exist');
        writeln('Try one more');
  end
  else
     case i of
      1:begin
            writeln('Minimal by ansolute value element is:');
            writeln('  ',GetMinimal);
         end;
      2:begin
            writeln('Sum element by absolute value after zero is:');
            writeln('  ',SumAfterZero);
        end;
      3:begin
            writeln('The sequence of elements change');
            writeln('Before:');
            PrintArray;
            Replase;
            writeln('After');
            PrintArray;
        end;
      4:begin
          writeln('Enter ',N,' elements  of array:');
          writeln;
          for i:=1 to N do
              read(O[i]);
        end;
      5:exit;
    end;
    writeln('Press any key ...');
    readln;

  end;
end.

[pashqa]

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

program z;
uses crt;
const N=5;
var
  O : array [1..N] of integer;
  i : word;
function GetMinimal:integer;
var
 min:word;
begin
  min:=abs(O[1]);
  i:=2;
  repeat 
     if(min>abs(O[i])) then
          min:=abs(O[i]);
     i:=i+1;
  until i>N;
  GetMinimal:=min;
end;


function SumAfterZero:longint;
var 
  sum:longint;
begin
  sum:=0;
  i:=0;
  repeat 
     i:=i+1;
  until ((O[i])=0) or (i=N);

  if(i<N)then
  repeat 
     i:=i+1;
     sum:=sum+abs(O[i]); 
  until i=N;
  SumAfterZero:=sum;
end;
procedure  Replase;
var
 mid:word;
 tmp:integer;
begin
 i:=1;
  mid := N div 2;
  repeat
    if(i mod 2 <> 0) then
    begin
      {swap}
       tmp:=O[i];
       O[i]:=O[i+mid];
       O[i+mid]:=tmp      
    end;
    i:=i+1
  until i>mid;
end;
procedure PrintArray;
var 
 i:word;
begin
 for i:=1 to N-1 do
     write(O[i],',');
     writeln(O[N]);
end;
begin
  writeln('Enter ',N,' elements  of array:');
  writeln;
  for i:=1 to N do
    read(O[i]);
  while true do
  begin
  clrscr;
  writeln('Array:');
  PrintArray;
  writeln('Commands:');
  writeln(' 1)Get minimal by absolute value');
  writeln(' 2)Get sum alements after zero');
  writeln(' 3)Replace array elements');
  writeln(' 4)Change array');
  writeln(' 5)exit');
  write('Choose:');
  readln(i);
  if (i<1) or (i>6) then
  begin
        writeln('Error!Command with such number does not exist');
        writeln('Try one more');
  end
  else
     case i of
      1:begin
            writeln('Minimal by ansolute value element is:');
            writeln('  ',GetMinimal);
         end;
      2:begin
            writeln('Sum element by absolute value after zero is:');
            writeln('  ',SumAfterZero);
        end;
      3:begin
            writeln('The sequence of elements change');
            writeln('Before:');
            PrintArray;
            Replase;
            writeln('After');
            PrintArray;
        end;
      4:begin
          writeln('Enter ',N,' elements  of array:');
          writeln;
          for i:=1 to N do
              read(O[i]);
        end;
      5:exit;
    end;
    writeln('Press any key ...');
    readln;

  end;
end.

был бы очень благодарен если бы без процедур и функций...только через choise и repeat/until или через Case