Заповнити одновимірний масив В[1..M] значеннями сум елементів стовпців масиву A[1..N, 1..M]. Масив заповнити випадковими дійсними числами з
діапазону від 0 до 20, N та M - ввести з клавіатури

Напишите код на Pascal.
Заранее

Потребность считать возникала у людей вместе с появлением цивилизации. Им было необходимо осуществлять торговые сделки, проводить землемерные работы, управлять запасами урожая, следить за астрономическими циклами. Для этого издревле были изобретены различные инструменты, от счётных палочек и абака, в ходе развития науки и техники эволюционировавшие в калькуляторы и разнообразные вычислительные устройства, в том числе и персональные компьютеры. В 1950-60х годах компьютеры были доступны только крупным компаниям из-за своих размеров и цены. В конкурентной борьбе за увеличение продаж фирмы, производящие компьютеры, стремились к удешевлению и миниатюризации своей продукции. Для этого использовались все современные достижения науки: память на магнитных сердечниках, транзисторы, и наконец микросхемы. К 1965 году мини-компьютер PDP-8 занимал объём, сопоставимый с бытовым холодильником, стоимость составляла примерно 20 тыс. долларов, кроме того, наблюдалась тенденция к дальнейшей миниатюризации. Kenbak-1 Digital Computer известен многим как действительно один из первых в мире персональных компьютеров, коммерческая модель. Сейчас этот ПК выставлен на продажу. Впервые устройство ценой в $750 было представлено Джоном Бланкенбекером в 1971 году, за много лет до появления Altair 8800 и Apple I. Правда, до него был выпущен Datapoint 2200.

Создатель KEnbak-1 позиционировал свое устройство, как образовательную систему, позволяющую школьнику или взрослому человеку научиться началам программирования. Процессора здесь не было, а объем ОЗУ — всего 256 байт. Всего было произведено 50 таких устройств, некоторые из которых сейчас появляются на аукционах и в музеях «железа».

Выбери то что тебе нужно!

--- C# 7.3 -- (.NET Framework 4.8)

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace CSLear

{

   class Program

   {

       static void Main(string[] args)

       {

           Tuple<int, int> MatrixRange = new Tuple<int, int>(-10, 10);

           int M = int.Parse(Console.ReadLine());

           int N = int.Parse(Console.ReadLine());

           int[,] Arr = new int[M,N];

           ArrayRandomize(ref Arr, M, N, MatrixRange);

           MatrixPrint(Arr, M, N);

           int Negatives = Arr.Count(x => x < 0);

           int Zero = Arr.Count(x => x == 0);

           int Positives = Arr.Count(x => x > 0);

           Console.WriteLine($"Positive Items: {Positives}\nNegative Items: {Negatives}\nZeroes: {Zero}");

           Console.ReadKey();

       }

       public static void MatrixPrint<T>(T[,] Matrix, int MRows, int MCols)

       {

           StringBuilder sb = new StringBuilder();

           for (int i = 0; i < MRows; i++)

           {

               for (int j = 0; j < MCols; j++)

               {

                   sb.Append($"{Matrix[i, j]} ");

               }

               sb.Append("\n");

           }

           Console.WriteLine(sb.ToString());

       }

       public static void ArrayRandomize(ref int[,] Arr, int ArrRows, int ArrCols, Tuple<int, int> Range)

       {

           Random r = new Random();

           for (int i = 0; i < ArrRows; i++)

           {

               for (int j = 0; j < ArrCols; j++)

               {

                   Arr[i, j] = r.Next(Range.Item1, Range.Item2);

               }

           }

       }

   }

   public static class Extensions

   {

       public static int Count<T>(this T[,] Matr, Func<T, bool> Predicate)

       {

           int counter = 0;

           foreach (T Item in Matr)

           {

               if (Predicate(Item)) counter++;

           }

           return counter;

       }

   }

}