// PascalABC.NET 3.2, сборка 1447 от 22.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество колонок в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a.Cols.Select(x->Format('{0,5}',x.Where(y->y<0).Sum)).Print(''); Println(' - суммы отрицательных'); end.
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks;
namespace СиШарп { class Program { static void Main(string[] args) { Console.Write("N = "); int N = int.Parse(Console.ReadLine()); Console.Write("A({0}):",N); double[] A = new double[N]; int Max = 1, Min = 1; Random RND = new Random(); for (int i = 0; i < N; i++) { A[i] = RND.NextDouble() * N; Console.Write(" {0:0.0}",A[i]); if (A[i] > A[Max]) Max = i; if (A[i] < A[Min]) Min = i; } Console.WriteLine("\nMin(A) = {0:0.0}[{1}]",A[Min],Min+1); Console.WriteLine("Max(A) = {0:0.0}[{1}]", A[Max], Max+1); Console.ReadKey(); } } }
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
a.Cols.Select(x->Format('{0,5}',x.Where(y->y<0).Sum)).Print('');
Println(' - суммы отрицательных');
end.
Пример
Количество строк в массиве: 5
Количество колонок в массиве: 9
*** Исходный массив [5,9] ***
-43 -96 34 82 3 92 -59 31 35
65 94 76 66 90 -39 26 -24 83
73 -92 94 -94 44 -35 -66 87 -46
90 56 -37 -60 -9 94 9 -76 -58
-16 97 65 -21 -86 64 -20 46 -26
-59 -188 -37 -175 -95 -74 -145 -100 -130 - суммы отрицательных
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("N = ");
int N = int.Parse(Console.ReadLine());
Console.Write("A({0}):",N);
double[] A = new double[N];
int Max = 1, Min = 1;
Random RND = new Random();
for (int i = 0; i < N; i++)
{
A[i] = RND.NextDouble() * N;
Console.Write(" {0:0.0}",A[i]);
if (A[i] > A[Max]) Max = i;
if (A[i] < A[Min]) Min = i;
}
Console.WriteLine("\nMin(A) = {0:0.0}[{1}]",A[Min],Min+1);
Console.WriteLine("Max(A) = {0:0.0}[{1}]", A[Max], Max+1);
Console.ReadKey();
}
}
}
N = 13
A(13): 11,0 9,2 4,5 12,0 2,5 11,1 9,6 10,4 0,2 10,2 6,7 0,4 10,0
Min(A) = 0,2[9]
Max(A) = 12,0[4]