Kristi

Множество точек в пространстве задано своими целочисленными координатами. Определить, совпадает ли хотя бы одна из точек с началом координат.

Исправьте пожалуйста...
program Points;
uses CRT;
var
x,y:array [0..1000] of Integer; {Данные}
n,i:Integer; {Количество точек и счетчик циклов}
flFind:Boolean; {Флаг - нашли точку или нет}
begin
ClrScr;
{Вводим массив}
WriteLn('Введите количество точек: ');
ReadLn(n);
for i:=0 to n-1 do
begin
WriteLn('Введите ',i,'-е x:');
ReadLn(x);
WriteLn('Введите ',i,'-е y:');
ReadLn(y);
end;
{Анализируем массив}
flFind:=False;
for i:=0 to n-1 do if (x=0) and (y=0) then
begin {Нашли такую точку}
flFind:=True;
Break;
end;
if flFind then WriteLn('Точка найдена') else WriteLn('Точка не найдена');
ReadKey;
end.

Vladimir_S

Пожалуйста. Ошибка здесь:
for i:=0 to n-1 do if (x=0) and (y=0) then
А надо:
for i:=0 to n-1 do if (x[i]=0) and (y[i]=0) then

Ой, да - и при вводе тоже:
вместо
ReadLn(x);
...
ReadLn(y);
нужно
ReadLn(x[i]);
...
ReadLn(y[i]);