Дано натуральное число A(1<=A<=100) Даны координаты вершин A отрезков. Требуется написать программу, определяющую количество отрезков, пересекающих ось абсцисс. При этом будет считать отрезок пересекающий ось абсцисс, если отрезок имеет на оси ровно одну точку, не являющуюся вершиной.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

необходимо (но не достаточно).

var x,y,a,b: real; begin  read(a,b);   read(x,y);   if y=a*x+b then      writeln('точка принадлежит прямой')  else  writeln('точка не принадлежит прямой'); end.