[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08

1313
Var
  I,N,X,Y,J: LongInt;
  A: Array[1..100,1..100] of LongInt;
Begin
  Readln(N);
  For I:=1 to N do
    For J:=1 to N do
      Read(A[I,J]);
  Write(A[1,1]);
  For I:=2 to N*2 do
    For J:=1 to N do begin
      X:=J;
      Y:=I-J+1;
      If ((X>0) and (Y>0)) and ((X<=N) and (Y<=N)) then Write(' ',A[Y,X]);
    End;
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 2065