var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
5981 bit = 747,625 bytes в секунду
867245 байт / 747.625 байт в секунду = 1160 секунд
Если доска квадратная, то можно поставить n ладей по одной вертикали - ясно, что они будут держать под угрозой всю доску. Если же ладей меньше, чем n, то найдется по крайней мере одна горизонталь и одна вертикаль, на которой не будет находиться ни одной ладьи. Так как ладьи бьют только по этим линиям, то их пересечение не будет под угрозой, значит, меньше чем n ладей быть не может. Если же доска не квадратная, аналогично достаточно выставить ряд ладей по меньшей стороне, доказательство аналогично.