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

[Настася]

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

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

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

!

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

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

[Renbo]

а по-русски можно? ...

[Anti]

попробуй ввести всё на русском, а то тебя могут не понять...
Впорядкування - упорядочивание

[Адель]

а сортировка не подходит??

[Настася]

Впорядкування - упорядочивание .. Ет наверно и есть сортировка...?Значит нельзя...

[klem4]

а сортировка не подходит??

Это и есть упорядочивание, а оно по заданию не требуется.

[Настася]

А Вы не могли бы помочь с етой задачкой...?????

Добавлено через 10 мин.
ПОЖАЛУЙСТА!!!!!!!!СРОЧНО НАДО!!!!!!!УМОЛЯЮ!!!!!!!!

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

Это и есть упорядочивание, а оно по заданию не требуется.

Ну может ...?PLEeeeeeeeeeeeeeeeZ..

!

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

[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 пиши пожалуйста на Русском языке.

[Настася]

БОЖЕ МОЙ,спасибо!!!!!!!!!!Я на русском, сорри Только я то вроде поняла, но мы с left,right не делали...НО ВСЁ ЖЕ СПАСИБО ОГРОМНОЕ!!!!!!!!!

!

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

[Настася]

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

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

[klem4]

Ну это смотря кто пишет ... Если мама из командировки, то может и не нужна, а если компилятор ... Присоединяй исходник, посмотрим.

зы не надо постить кучу вопросов в одной теме.

[Настася]

ууупс..Какой исходник и как его присоединять.....???

рs мне стыдно

[klem4]

Исходный текст программы (код).

[Настася]

Саму задачу??
найти минимальный положительный елемент линейного массива..
и ещё можно вопрос??Как мне саму програму в текстовый документ скопировать?

[Lapp]

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

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

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

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

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

[Настася]

Какие все УМНЫЕ!!!!! А я в программировании почти полный тупак...

Добавлено через 2 мин.
А можно попросить написать програму к етой задаче?

Найти MIN елемент массива

БУДУ ЖУТКО БЛАГОДАРНА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

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

[Настася]

!

ТЕГИ !

М

Еще одно нарушение любого правила форума и ты отправляешься в премодерацию на 3 дня.

program dod;
uses crt;
const m=100;
var a :array[1..m] of integer;min,i,k,n:byte;
begin
ClrScr;
readln(n);
for i:=1 to n do readln(a[i]);
end;
ClrScr;
writeln('Dano');writeln('Masuv');
for i:=1 to n do
write (a[i],' '); writeln;
if o>=min then min:=a[1];k:=1;
for i :=2 to n do
if a [i]<min then begin min:=a[i];k:=i;
writeln('Rezyltat');
writeln('min=',min,'k=',k);
readln
end.


где здесь ошибки?????Ето чтоб найти минимальный положительный

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

[Tan]

if o>=min then min:=a[1];k:=1;

Что это за буква о или это ты думаешь что буква о и 0 для паскаля равносильны ? И если даже это 0, то зачем такое сравнение ? Просто предположи что первый элемент минимальный и сравнивай с ним последующие.

uses crt;
Const N = 10;
var ms : array [1..N] of integer;
min, i : integer;
begin
Clrscr;
randomize;
for i:=1 to N do
begin
  ms[i]:=random(10) - 5;
  write (ms[i]:3);
end;
writeln;
min:=ms[1];
for i:=1 to N do if ms[i] < min then min:=ms[i];
write (min);
readkey;
end.

[Настася]

Просто мне неадо найти неепросто минимальный(ъто я смоглаб,наверно;)) ,а минимальный положительный....