[Opium1992]

Вот смотри я хз че не так

Код:

Type Tmas=array[0..14] of integer;
Var a,b:array[0..14] of Tmas;
l:boolean;
i,j:integer;
begin
   for i:=0 to n-1 do
	   for j:=0 to n-1 do
	      a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
	for i:=0 to n-1 do
	   for j:=0 to n-1 do
	      b[i,j]:=StrToInt(StringGrid2.Cells[j,i]);
  end;
  for i:=1 to n do
  begin l:=true;
  for j:=1 to n do
  if (a[i,j]>=0) or (b[i,j]>=0) then l:=false;
  if l=true then x[i]:=1 else x[i]:=0 ;
  for i:=1 to n do
  Edit2.Text:=IntToStr(x);
  end;

Admin: Пользуемся тегами!