[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1319
Var
  A: Array[1..100,1..100] of Longint;
  N,F,X,Y,I,J: LongInt;
Begin
  FillChar(A,SizeOf(A),0);
  Read(N);
  F:=1;
  For I:=-N to N do
    For J:=1 to N do begin
      X:=J;
      Y:=I+J+1;
      If ((X>0) and (X<N+1)) and ((Y>0) and (Y<N+1)) then begin
        A[Y,X]:=F;
        Inc(F);
      End;
    End;
  For I:=1 to N do begin
    For J:=1 to N do
      Write(A[I,J],' ');
    Writeln;
  End;
End.

Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 1725