// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); var k:=ReadInteger('Номер строки для подсчета:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Row(k-1); Writeln('Сумма элементов в выбранной строке: ',b.Sum); Writeln('Произведение элементов в выбранной строке: ', b.Aggregate(BigInteger(1),(x,y)->x*y)) end.
#include <math.h>
#include <cstdlib>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
int x, y;
cout << "x=";
cin >> x;
cout << "y=";
cin >> y;
cout << "\n\n\n"
<< "СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ КУБОВ ЧИСЕЛ X и Y:\n"
<< "(X^3+Y^3)/2="
<< ( ( pow(x,3) + pow(y,3) ) / 2 )
<< '\n'
<< "СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ МОДУЛЕЙ ЧИСЕЛ:\n"
<< "(abs(X)*abs(Y))/2="
<< ( ( abs(x) * abs(y) ) / 2 )
<< "\n\n"
<< "ИСХОДНЫЕ ДАННЫЕ\n"
<< "X=" << x << '\n'
<< "Y=" << y << '\n'
<< "";
}
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
var k:=ReadInteger('Номер строки для подсчета:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Row(k-1);
Writeln('Сумма элементов в выбранной строке: ',b.Sum);
Writeln('Произведение элементов в выбранной строке: ',
b.Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 13
Номер строки для подсчета: 4
*** Исходная матрица [6,13] ***
-6 19 -16 -42 -2 -13 -11 10 -24 18 9 -21 -17
-46 3 -13 27 -2 -19 39 12 -23 20 -11 48 43
-5 40 -41 -2 -27 30 47 -33 38 38 -50 31 4
20 -46 -46 42 13 -48 -41 50 -23 3 -44 -15 2
32 20 -26 -34 49 46 -39 6 42 -1 1 29 -5
29 -17 -34 -33 15 -13 46 44 12 34 8 -15 -43
Сумма элементов в выбранной строке: -133
Произведение элементов в выбранной строке: -207088709667840000