Предмет: Информатика,
автор: rilax
[70б] Матрица M [5,5]
Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывести на экран.
В одномерный массив F переписать элементы верхней треугольной. Вывести полученный массив на экран и найти в нём и найти min и max по модулю элементы.
rilax:
поправочка m [5.5]
Ответы
Автор ответа:
0
===== PascalABC.NET =====
function MinMax(a: array of integer): (integer, integer);
begin
var min := Abs(a[0]);
var max := min;
for var i := 1 to a.High do
if Abs(a[i]) < min then
min := Abs(a[i])
else if Abs(a[i]) > max then
max := Abs(a[i]);
Result := (min, max)
end;
begin
var M := MatrRandom(5, 5, -50, 50);
M.Println(4);
var F := M.ElementsWithIndices
.Where(p -> p[2] >= p[1])
.Select(p -> p[0])
.ToArray;
F.Println;
var r := MinMax(F);
Println('Min=', r[0], ' max=', r[1])
end.
Приложения:
![](https://files.topotvet.com/i/42d/42d94ce0648f7d1140b266e007bdb0cd.jpg)
Похожие вопросы
Предмет: Математика,
автор: merihacizade2010
Предмет: ОБЖ,
автор: plochutatanya
Предмет: Математика,
автор: kiss245
Предмет: История,
автор: Cocicka11
Предмет: История,
автор: vadiksomov2016