перестановка элементов массива

[eduard93]

завтра зачет, нужна програмку сдать, помогите плиз то мозг уже не варит. програмка на паскале.

задача:Перестановка i-го и j-го по порядку элементов массива, при условии что они с разными знаками. Все элементы между ними обнулить. Длина массива и номер переставляемых элементов вводятся с клавиатуры......




За ранее спасибо!!!!!
__________________

[viron]

Procedure Arr();
var
  A: array of Integer;
  size: Integer;
  i,j,col: Integer;
  temp: Integer;

begin
  Write('Введите длину массива: ');
  Readln(size);
  SetLength(A, size);

  Write('i = ');
  Readln(i);
  Write('j = ');
  Readln(j);

  if (A[i] > 0 and A[j] < 0) or (A[i] < 0 and A[j] > 0) then
  begin
    temp:= A[i];
    A[i]:= A[j+1];
    A[j+1]:= temp;
  end;

  for col:= i+1 to col-1 do
    A[col]:= 0;


  SetLength(A, 0);
  Readln;
end;

[Serge_Bliznykov]

  for col:= i+1 to col-1 do
    A[col]:= 0;

тут опечатка. Вы хотели написать j-1

и ещё, неплохо бы проверить, какой из индексов больше, а какой меньше.
Ведь в условии ничего не сказано, что I должно быть МЕНЬШЕ, чем J ...

[eduard93]

Спасибо люди за реальную помощь, форуму зачет