помогите пожалуйста с информатикой, желательно быстрее

Найдите сумму элементов двумерного массива а[n,m], заданного случайным образом из интервала (-80, 180).



​

Программа:

Pascal:

const n = 10; m = 10;

var

 arr: array[1..n, 1..m] of integer;

 i, j, summ: integer;

begin

 randomize;

 for i := 1 to n do

   for j := 1 to m do begin

     arr[i, j] := random(-80, 180);

     summ += arr[i, j];

   end;

 writeln('Массив: ', arr);

 writeln('Сумма элементов: ', summ);

end.

Объяснение:

В начале объявляются константы n, m - длина массива. Далее регистрируется сам массив и 3 необходимых для будущего кода переменных. Говорим паскалю, что используем процедуру randomize. С помощью цикла пробегаемся по всем цифрам от 1 до n, вторым циклом - от 1 до m; где n - количество строк, m - рядов. Элементу массива [i, j] присваивается рандомное значение в интервале от -80 до 180. Этот же элемент прибавляется к значению переменной summ. В конце выводится сам двухмерный массив и сумма элементов.