Using System;
class Program
static void Main()
{
int n = 5;
int m = 10;
var a = new Int32[n, m];
int imin = 0;
int imax = 0;
int max = 0;
int min = 100;
var random = new Random();
for (var i = 0; i < a.GetLength(0); i++, Console.WriteLine())
for (var j = 0; j < a.GetLength(1); j++)
{
a[i, j] = random.Next(100);
if (max < a[i, j])
{
max = a[i, j];
imax = j;
}
if (min > a[i, j])
{
min = a[i, j];
imin = j;
}
Console.Write("{0,4}", a[i, j]);
}
if (imin == imax)
Console.WriteLine("Элементы находятся в одном столбце");
else
{
Console.WriteLine();
for (int i = 0; i < a.GetLength(0) -1; i++)
for (int j = i + 1; j < a.GetLength(0); j++)
if (a[i,imin] > a[j, imin])
{
var temp = a[i, imin];
a[i, imin] = a[j, imin];
a[j, imin] = temp;
}
for (int i = a.GetLength(0) - 2; i >=0 ; i--)
for (int j = i; j < a.GetLength(0)-1; j++)
if (a[j, imax] < a[j+1, imax])
{
var temp = a[i, imin];
a[j, imax] = a[j+1, imax];
a[j + 1, imax] = temp;
}
for (var i = 0; i < a.GetLength(0); i++, Console.WriteLine())
for (var j = 0; j < a.GetLength(1); j++)
Console.Write("{0,4}", a[i, j]);
}
Console.Read();
}
}
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
1 символ = 1 байт = 8 бит
100*40*60 = 240000 байт = 1920000 бит
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var b := Arr(2, 1, 3, 5, 4, 9, 7, 8, 12, 10);
b.Sum.Println
end.
<h2>61 </h2>
