ПО (Software) - составляющая часть информационной системы, содержащая все программы, процедуры и системную документацию обработки информации.
<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
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
Полное решение, все задания
Первые два вчера писал: znanija.com/task/1944982
В третьем не уверен в самом алгоритме...
var
a, b, x, y, z : real;
begin
read (a, b, c, x, y);
if ((a <= x) and (b <= y)) or ((a <= y) and (b <= x))
or ((a <= x) and (b <= z)) or ((a <= z) and (b <= x))
or ((a <= z) and (b <= y)) or ((a <= y) and (b <= z)) then writeln ('YES') else writeln ('NO');
end.