Задача на матрицу

[Анастасия12]

Помогите пожалуйста решить задачу...
Заполнить матрицу (4,4) случайными числами в диапазоне от (-10;0). Вывести на экран. Найти сумму элементов главной диагонали.
Вот примерное начало...

program qq;
const N=4; M=4
var A:array [1..N, 1..M] of integer;
i, j, s: integer;
begin
s=0
for..........а вот дальше незнаю как, помогите пожалуйста.
Вот закономерность квадратной матрицы:
1. У элемента расположенного на главной диагонали номер его строки равен номеру его столбца j=i.

[spein]

begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=-random(10); {заполняем случайными элементами}
{сумма ниже}
for i:=1 to n do
sum:=sum+a[i,i];

[Анастасия12]

а счетчик после begin обнулять не надо???и ещё это именно сумма главной диагонали???

[Hacker19_90]

и ещё это именно сумма главной диагонали???

именно так!

а счетчик после begin обнулять не надо???

какой счётчик?

[Karpinsky]

a[i,j]:=-random(10); {заполняем случайными элементами}

-random(11) все-таки, чтобы получить число в интервале (-10 .. 0). И, да, сумму-таки желательно обнулять (я знаю, что компилятор ее обнулит автоматически в данном случае, но во-первых, это распространяется только на глобальные переменные, а во-вторых - правила хорошего тона: неинициализированных переменных в коде быть не должно. Вообще.)