Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 36 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

36
end;
procedure Solve;
var i,j:integer;
begin
Cnt:=0;
for i:=-A to A-1 do
for j:=-B to B-1 do
if Bar[i,j]>0 then
begin
inc(Cnt);
c:=Bar[i,j];
S:=0;
Rec(i,j);
Fig[Cnt].col:=c;
Fig[Cnt].squ:=S;
end;
for j:=1 to Cnt do
for i:=Cnt-1 Downto j do
if Fig[i+1].col<Fig[i].col then
begin
Fig[0]:=Fig[i];
Fig[i]:=Fig[i+1];
Fig[i+1]:=Fig[0];
end;
end;
procedure Print;
var i: integer;
begin

Страницы