[HelperMe]

а) все элементы побочной диагонали массива, начиная с элемента, расположенного в правом верхнем углу;
б) все элементы побочной диагонали массива, начиная с элемента, расположенного в левом нижнем углу.

Помогите пожалуйста ))

[Страдалецъ]

Нашествие студиусов!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Const   N = 5; Var   Arr: Array[1..N,1..N] of integer;   i,j: Integer; begin  for i := 1 to N  do begin     for j := 1 to N     do begin        Arr[i,j] := Random(100);        Write(Arr[i,j]:3);        end;     WriteLn;     end;  for i := 1 to N  do WriteLn(Arr[i,N-i+1]);  WriteLn;  for i := N downto 1  do WriteLn(Arr[i,N-i+1]);  ReadLn; end.