Ближайшее число (Матрица)

[Аватар]

Сообщение от Poma][a

Не.. Не турбо там.. Бахните, например, array of Integer.. и тамошний компиль ругать не будет, чесн слово

Вот-вот. Я ленивый и динамический по простому забабахал. Скушал

[Poma][a]

Они в TP7 ещё были

Да разве?
Можно тогда пруф?
Просто под рукой турбо нет, а ставить со всеми запарами на хочется.

[Аватар]

Это открытые массивы.

Открытые массивы только как параметры могут быть

[FPaul]

Да, за 3 года всё позабывал...

[isst]

Сообщение от Аватар

Если сайт acmp по Ромахиной ссылке, то там компилятор от D7

program Project1;

{$APPTYPE CONSOLE}

var n,i,j,k,m: Smallint;
    a: array of array of Integer;
    v,c1,c2: Integer;

function TestCell(pi,pj: Integer): Integer;
begin
  if (pi<0) or (pi>=n) or (pj<0) or (pj>=n) then Result:=0
  else begin
    Result:=Ord(a[pi,pj]>0);
    if Result=1 then v:=a[pi,pj];
    Inc(c2);
  end;
end;

begin
  Assign(input,'input.txt');
  Reset(input);
  Readln(n);
  SetLength(a,n,n);
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do Read(a[i,j]);
    Readln;
  end;

  Assign(output, 'output.txt');
  Rewrite(output);
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      if a[i,j]=0 then begin
        k:=1; c1:=0;
        repeat
          c2:=0;
          for m:=0 to k do begin
            c1:=c1+TestCell(i-k+m,j+m)+TestCell(i+m,j-k+m);
            if (m>0) and (m<k) then c1:=c1+TestCell(i-k+m,j-m)+TestCell(i+m,j+k-m);
            if c1>1 then Break;
          end;
          if c1=1 then a[i,j]:=-v;
          Inc(k);
        until (c2=0) or (c1>0);
      end;
      Write(Abs(a[i,j]),' ');
    end;
    Writeln;
  end;

end.

Спасибо большое за такой вариант решения. Я, если что, тестирую на informatics.mccme.ru там компиляторы:
Free Pascal 2.6.3
PascalABC 1.8.xxx
Borland Delphi 6 - 14.5