Главная » Статьи » Задачи с 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 |