Процедура для нахождения суммы элементов главной диагонали

[Lizonka-88]

помогите составить Процедура для нахождения суммы элементов главной диагонали квадратной матрицы

[Luuzuk]

http://www.programmersforum.ru/showthread.php?t=70310

[Hacker19_90]

Процедура для нахождения суммы элементов главной диагонали квадратной матрицы

procedure GetSum (mas: array of integer;const count: byte; var sum: integer);
var
    i: integer;
begin
    sum := 0;
    for i := 1 to count do
        Inc(sum, mas[i,i]);
end;

[Lizonka-88]

Hacker19_90, видел мою след задачу точнее, продолжение этой. посмотри в своей про-ге процедуру, у меня паскаль ругается на то, что у нее в скобочках написано (mas: array of integer;const count: byte

[ByAlex]

Сообщение от Lizonka-88

Hacker19_90, видел мою след задачу точнее, продолжение этой. посмотри в своей про-ге процедуру, у меня паскаль ругается на то, что у нее в скобочках написано (mas: array of integer;const count: byte

Просто mas: array of integer - это одномерный динамический массив. А здесь вы обращаетесь как к двумерному - Inc(sum, mas[i,i]);

[Вадим Мошев]

Насколько я знаю, в Паскале нельзя работать с динамическими массивами.