Вопрос Помогите дописать программу. Язык - Free Pascal.

[tytttt]

Не могу придумать как это сделать. Задание: Заполнить матрицу случайными цифрами. Размер матрицы и диопазон генерации чисел ввести пользователю. Найти среднее артфметическое чисел, которые находятся ВЫШЕ главной диоганали. Половину программы написал - Заполнил матрицу.
//otvet.imgsmail.ru/download/224053055_9e8e19b370bd78114e1bd4fae5b8b425_800.jpg

 

[RAMoff]

s:=0; for i:=1 to a do for j:=i+1 to a do s:=s+matrix[i,j]; s:=s/(a*(a-1)); s должно быть real

 

[костик]

Что именно не можешь, найти среднее арифметическое, или не знаешь, что значит выше главной диагонали?