Линейный массив, Лінійні масиви Опции

[Настася]

PLeeeeeeeeeeeZ, помогите решить задачу!!!

Надо переделать массив A[N] так, чтобы положительные элементы разместились перед отрицательными и нулевыми ("впорядкування" не проводить) ....

ОГРОМНОЕ ПАСИБОООООООООООО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТСЯ, КОГДА НА ВАС КРИЧАТ?

Сообщение отредактировано: klem4 - 16.04.2007 7:54

[klem4]

Если я правильно понял условие: Сначала строго положительные (не важно в каком порядке), затем нулевые и отрицательные в перемешку, то посмотри вот это:

Код

const
  n = 10;

var
  x: Array [1..n] of Integer = (-1, -2, 0, 1, 2, 4, -1, 5, 0, -12);
  left, right, T: Integer;

begin
  for T := 1 to n do write(x[T]:4); writeln;

  left := 1;
  right := n;

  repeat
    // ищем первый не положительный слева
    while (left < right) and (x[left] > 0) do inc(left);

    // ищем первый положительный справа
    while (right > left) and (x[right] <= 0) do dec(right);

    // меняем их местами

    T := x[left];
    x[left] := x[right];
    x[right] := T;
  until left >= right;

  for T := 1 to n do write(x[T]:4);
end.

ps пиши пожалуйста на Русском языке.

[Настася]

Я очень извеняюсь..Но не могли б Вы помочь ещё с одноы задачей..Она легкая,но мне пишут "." expected...Чё ето значит???Там . не нужна....

Найти минимальный положительный елемент линейного массива.

[Lapp]

"." expected...Чё ето значит???Там . не нужна....

Это скорее всего значит, что у тебя нарушен баланс begin'ов и end'ов. Один (или больше) end лишний.

Добавлено через 2 мин.

Как мне саму програму в текстовый документ скопировать?

Найди файл с текстом программы на диске (в эксплорере) и драгенддропь его в ноутпад..
То бишь перенеси мышью из Проводника в текстовый редактор Блокнот