Вычислить сумму элементов главной диагонали матриц А(10,6), В(8,5).

[33ddalex]

Здравствуйте, помогите пожалуйста написать программу на Paskal. а то я что то в процедурах и функциях не очень


Вычислить сумму элементов главной диагонали матриц А(10,6), В(8,5).

[MyLastHit]

Paskal

Мы про такой язык и не слышали даже...

а то я что то в процедурах и функциях не очень

Процедуры и функции та тут зачем? Не вижу этого требования в условии.

[Hacker19_90]

Что самое интересное так это то, что

"Главная диагональ матрицы

ГЛАВНАЯ ДИАГОНАЛЬ МАТРИЦЫ [main matrix diagonal] — совокупность элементов квадратной матрицы [aij], для которых i=j."
А у ТС?

[33ddalex]

Извеняюсь. Pascal

[33ddalex]

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

Мы про такой язык и не слышали даже...

Процедуры и функции та тут зачем? Не вижу этого требования в условии.

Да, но это требование преподавателя

[Hacker19_90]

Ну как пример

function get_sum(a: array of integer; count: integer): integer;
var
    sum, i: integer;
begin
    sum := 0;
    for i := 1 to count do
        Inc(sum, a[i,i]);
    get_sum := sum;
end;

Но ток матрицы у вас не квадратные!