Аскольд
4 год назад
Пожалуйста посчитайте, пожалуйста, к девяти нужнозадание, где написано д/з
ОТВЕТЫ
Алёна
Oct 24, 2020
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Cols.Select(x->Format('{0,4}',x.Min)).Print('');
Writeln(' - минимальные');
a.Cols.Select(x->Format('{0,4}',x.Max)).Print('');
Writeln(' - максимальные');
end.
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
21 65 34 -6 -67 16 -68 -41 -82
-90 -31 6 38 34 -42 15 57 -21
55 72 -34 32 -77 -4 -16 66 -71
47 67 -75 -92 0 82 72 41 29
7 -19 94 -12 -42 -27 7 -39 41
60 -90 68 77 27 -59 -21 36 32
------------------------------------
-90 -90 -75 -92 -77 -59 -68 -41 -82 - минимальные
60 72 94 77 34 82 72 66 41 - максимальные
471
Смежные вопросы: