<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.
<u>Пример</u>
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31
Ответ:
239
Объяснение:
первое число в десятичной системе равно 105
второе - 74
третье - 60
сумма равна 239
Музыкант дружил с Андреевым, сейчас дружит с Ивановым [3], значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым [4], но был дружен с музыкантом, значит, Петров - тоже не музыкант. Поэтому музыкант Сидоров.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('Введите элементы матрицы построчно');
var a:=ReadMatrInteger(n,n);
Writeln('Исходная матрица'); a.Println(4);
Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes;
var imin:=s.MinBy(t->t[0])[1];
var imax:=s.MaxBy(t->t[0])[1];
if imin<>imax then a.SwapRows(imin,imax);
Writeln('Матрица-результат'); a.Println(4);
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
Введите элементы матрицы построчно
51 -74 -22 -83 -89 87 66 -61 -16 -32 -82 -17 -7 -26 -10 91 5 45 0 25 -47 -44 24 -19 75
Исходная матрица
51 -74 -22 -83 -89
87 66 -61 -16 -32
-82 -17 -7 -26 -10
91 5 45 0 25
-47 -44 24 -19 75
--------------------
Матрица-результат
91 5 45 0 25
87 66 -61 -16 -32
-82 -17 -7 -26 -10
51 -74 -22 -83 -89
-47 -44 24 -19 75
Гбдва последовательность Если не трудно поставь ответ как лучший