Консультация № 138566
29.05.2008, 19:55
0.00 руб.
0 1 1
написать функцию нахождения суммы элементов двумерного массива размерностю N x M.

Обсуждение

Неизвестный
29.05.2008, 22:00
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Функция с программой использующей её и с пояснениями в приложении.
<b>SumArray</b>-функция подсчета суммы.
Удачи!!!

Приложение:
const {Кол-во строк} N=5; {Кол-во столбцов} M=10;type {создаем тип массива} MyArray = array [1..N, 1..M] of integer;var {Двумерный массив} a: MyArray; {Для For} i, j:integer;{функция, единственный параметр-переменная массив типа MyArray, возвращает сумму}function SumArray(a: MyArray): integer;var {i,j-для for, sum-сумма} i, j, sum: integer;begin {Обнуляем сумму} Sum:=0; for i:=1 to N do for j:=1 to M do {В цикле проходим весь массив и вычисляем сумму} inc(sum, a[i, j]); {Возвращаем результат} SumArray:=Sum;end;begin {Заполняем массив сл. числами и выводим его} randomize; for i:=1 to N do begin for j:=1 to M do begin a[i, j]:=random(100); Write(a[i, j]:3); end; writeln; end; {Выводим сумму} Write(‘Сумма: ‘, SumArray(a)); readlnend.
Форма ответа