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

[Настася]

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

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

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

!

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

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

[klem4]

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

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

[Настася]

!

ТЕГИ !

М

Еще одно нарушение любого правила форума и ты отправляешься в премодерацию на 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