<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
Таблицы - в прилагаемом файле.
12+22 = 111(3)
221-11 = 210(3)
21*2 = 112(3)
11:2 = 2(3)
// PascalABC.NET 3.0, сборка 1111
begin
var a:=ArrRandom(10,-15,25);
Write('Исходный массив: '); a.Println(',');
Writeln('Сумма min+max=',a.Min+a.Max)
end.
<u><em>Тестовое решение:</em></u>
Исходный массив: -8,-6,15,16,17,21,9,10,-15,19
Сумма min+max=6