Вывод всех диагоналей массива

[Ardentis]

Помогите пожалуйста с алгоритмом. Нужно вывести элементы двумерного массива по всем диагоналям.
То есть, если есть массив (см. вложение), на выходе должно быть: 1, 2, 7, 3, 8, 13 и так далее до 24, 29, 34, 30, 35, 36
Язык не важен

[Stilet]

Если не ошибаюсь.

(for (i := 1) (i <= 6) (i ++)
 (for (j := i) (j <= 6) (j ++)
   (write a[j,j])
 ) (writeln)
) (writeln)

(for (i := 2) (i <= 6) (i ++)
 (for (j := 1) (j <= i) (j ++)
   (write a[j,j])
 ) (writeln)
) (writeln)

[Ardentis]

Сообщение от Stilet

Если не ошибаюсь.

Ошибаетесь немного. Выводит сначала все что ниже главной диагонали, потом все что выше. Сверху - вниз, по столбцам. Нужно по всем диагоналям начиная с верхнего левого угла, справа налево. Для примера из первого поста должно получится: 1, 2, 7, 3, 8, 13, 4, 9, 14, 19, 5, 10, 15, 20, 25, 6, 11, 16, 21, 26, 31, 12, 17, 22, 27, 32, 18, 23, 28, 33, 24, 29, 34, 30, 35, 36

Понимаю, что разница между индексами этих элементов 6, но вот ничего путного пока не выходит.

[Stilet]

Ошибаетесь немного.

Возможно. Проверить не могу, так как не реализовывал многомерные массивы. Хотя думаю стоит этим заняться в ближайшее время.

[Poma][a]

var
	a : array [1..100, 1..100] of Integer;
	n, i, j, cnt : Integer;

begin
	ReadLn (n);
	
	cnt := 1;
	for i := 1 to n do
		for j := 1 to n do begin
			a[i, j] := cnt;
			Inc (cnt)
		end;
		
	for i :=  1 to n do begin
		for j := 1 to i do
			Write (a[j, i-j+1], ' ');
		WriteLn
	end;
	
	WriteLn;
	
	for i := 2 to n do begin
		for j := 0 to n-i do
			Write (a[j+i, n-j], ' ');
		WriteLn
	end		
end.

[Ardentis]

Poma][a, спасибо. Этот вариант понятный и хорошо работает.

[Poma][a]

Пожалуйста..
Просто был уже такой экспириенс.. дали в школе задание (которое было выпускным у 11 классов).. Нужно было записать матрицу таким макаром :