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

[Настася]

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

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

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

!

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

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

[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.

[Настася]

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