// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var a1:=a[0,0]; Writeln('S=',a.ElementsByRow.Skip(1).Where(x->x>a1).Sum) end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 5 *** Исходный массив [4,5] *** 35 24 93 -58 -89 -51 -55 -83 49 -92 -90 89 68 28 -60 46 -57 53 -78 -42
#include <array>
#include <random>
using namespace std;
mt19937 gen { random_device()() };
uniform_int_distribution<> uid(-20, 20);
constexpr size_t N = 5;
int main()
{
int sum = 0;
array<array<int, N>, N> a;
for (auto &i : a) {
for (auto &j : i) {
if ((j = uid(gen)) < 0) {
sum += j;
}
cout << j << "\t";
}
cout << endl;
}
cout << endl;
a[1][2] += sum;
for (const auto &i : a) {
for (const auto &j : i) {
cout << j << "\t";
}
cout << endl;
}
cout << "Sum: " << sum << endl;
}