В двух вложенных циклах последовательно перебирая каждый элемент добавлять к сумме, перед циклами надо обнулить переменную в которую будешь писать сумму. ввод массива тоже в двух циклах.
s:=0;
For i:=1 to N do
for j:=1 to N do begin
readln(a[i,j]);
s:=s+a[i,j]
end;
writeln(s);
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.