В двумерном массиве подсчитать каждый столбец и вывести сумму (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();
        }
    }
}

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы