В двумерном массиве подсчитать каждый столбец и вывести сумму (Pascal -> C#)
Формулировка задачи:
В двумерном массиве NxM подсчитать каждый столбец и вывести сумму
const m = 5; n = 4; var a: array[1..m,1..n] of byte; s: array[1..n] of byte; i,j, sum: byte; begin randomize; for i := 1 to m do begin for j := 1 to n do begin a[i,j] := random(10); write (a[i,j]:3) end; writeln end; writeln ('------------'); for j := 1 to n do begin for i := 1 to m do begin s[j] := s[j] + a[i,j]; sum := sum + a[i,j] end; write (s[j]:3) end; write (' | sum = ', sum); readln end.
Решение задачи: «В двумерном массиве подсчитать каждый столбец и вывести сумму (Pascal -> C#)»
textual
Листинг программы
using System; namespace ConsoleApplication7 { class Program { static void Main() { Random rand = new Random(); const int m=5, n=4; int[,] a = new int[m,n]; int[] s = new int[n]; int sum=0; for (int i=0; i<m; i++) { for (int j=0; j<n; j++) { a[i, j] = rand.Next(10); Console.WriteLine(a[i, j]); } } Console.WriteLine("------------"); for (int i = 0; i < m; i++) { for (int j = 0; j < n; j++) { s[j] += a[i,j]; sum += a[i, j]; } } Console.WriteLine(" | sum = "+ sum); Console.ReadKey(); } } }