А что есть такое positive? :) Условие чего-то?

ето переменная boolean типу. если прочитаное в файле init.txt число будет >= 0 т.е. додатное то мы присваиваем positive значения true в противном случае присваиваем false
с помощью positive проверяем предыдущее значения последовательности. потому что если на даном кроке цыкла мы еще не присвоили значения positive то ета переменная хранит значения из предыдущего крока. значит таким образом мы можем судить о предыдущем значении числа из последовательности было ли оно или -

Ммм...типа, условие положительности?)

да)

Спасибо, теперь всё ясно :))

На здоровье =)

У меня есть ещё наброски одной проги на бумаге, попробую с ней повозиться :) Если не выйдет что - напишу сюда. Надеюсь, что подскажешь :)

П.С. Забавно совпало, что на аватаре у тебя мой любимый герой компьютерной игры :)

ок... без проблем)

Гг)

Ну, собственно, вот моя задача: Из заданного множества точек на плоскости выбрать 2 различные точки так, чтобы количество точек, лежащих по разные стороны прямой, проходящей через эти 2 точки, различались наименьшим образом.
Вот мои наброски: Program Kursovik;
Const koor=25; {kol-vo to4ek}
Type exact=single; {to4nost}
MyMas=longint;
MyArray=array [1..koor, 1..2] of MyMas;
Var g1,g2, {koli4estvo to4ek po raznie storoni pr9moy}
p, {modul' raznosti mezhdu nimi}
i,j, {nomer to4ki iz massiva}
i0,j0,
c,l, {s4et4iki}
lol: integer;
x,y, {koordinati to4ki}
x1,x2,y1,y2, {koordinati to4ek, 4erez kotorie proxodit pr9ma9}
k,b:exact; {koefficienti pr9moy}
stop: boolean;
m: MyArray; {massiv, v kotoriy vxod9t to4ki}
init, out: text;
d: longint;

procedure read (const m:MyArray; var init:text);
var i,d: longint;
begin reset(init); i:=0;
while not(Eoln(init)) do begin i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do begin i:=i 1;
read(init,d);
m[i,2]:=d;
end;

procedure print (const i,j,p:integer; const m: MyArray);
begin
writeLn ('Pr9ma9 proxodit 4erez to4ku, u kotorix koordinati (',m[i,1],',',m[i,2],') i (',m[j,1],',',m[j,2],') i razli4auts9 po koli4estvu na p to4ek',p);
end;

begin
j:=2; p:=koor; stop:=false;
assign (out, 'out.txt');
rewrite (out);

i:=0; assign (init,'init.txt'); reset(init);
while not(Eoln(init)) do begin i:=i 1; read(init,d); m[i,1]:=d; end;
i:=0;
while not(Eof(init)) do begin i: i 1; read(init,d); m[i,2]:=d; end;
i:=1;

while not (stop) do begin c:=0; g1:=0; g2:=0;
x1:=m[i,1]; y1:=m[i,2]; x2:=m[j,1]; y2:=m[j,2];if not(x1=x2) then
k:=(y1-y2)/(x1-x2);
b:=y1-k*x1;
while c<koor do
begin
c:=c 1;
if (not(c=i)) and(not(c=j)) then begin x:=m[c,1]; y:=m[c,2];
if y>k*x b then g1:=g1 1;
if y<k*x b then g2:=g2 1; writeln (g1,' ',g2);
end;
end;
if abs(g1-g2)<p then begin p:=abs(g1-g2); i0:=i; j0:=j; end;
j:=j 1;
if j>koor then begin i:=i 1; j:=J 1; end;
if i>koor then stop:=true;
end;
print(i,j,p,m);
end.

Выдается ошибка 26 в пятой строке процедуры.
Хелп :)