Задание:
Написать программу нахождения суммы первого столбца двумерного массива
Решение:
var a: array[1… 10, 1… 10] of integer; i, j, n, m, s: integer; begin read (n, m); for i: =1 to n do for j: =1 to m do begin read (a[i, j]); if (j=1) then s: =s+a[i, j]; end; writeln (s); end.
Знаете другой ответ?