с массивом: Найти сумму элементов, стоящих на побочной диагонали массива размером МхN, элементы которого вводятся из файла. Вычисление суммы через функцию.

Текст программы, написанный на языке программирования (MATLAB, OCTAVE или любой бесплатный аналог MATLAB). В текст программы следует добавить комментарии, поясняющие, что делает та или иная команда. Результат работы программы (то, что выводится на экран в результате работы программы). Небольшое заключение, в котором должно указываться, какие результаты вы получили в данном задании. Желательно сделать небольшой анализ полученных результатов, подтверждающий их правильность.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 := 30;         Y0 := 460;         MaxY := 80;         MaxX := GetMaxX;         i := 1;         T0 := rez[Id_T, 1];         Tk := 15;         Tkv := 0.75;         MoveTo(x0, Y0);           While T0 <= Tk do         begin             x := X0 + 70 * Round( rez[Id_T, i] );             y := Y0 - Round( rez[Id_Zt, i] / 7.8 );               LineTo(x, y);               T0 := T0 + Tkv;             i := i + 1;               DelaySeconds := Round(Tkv * 1000);             Delay(DelaySeconds);         end;         { ...Построение графика }

Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0