Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте, пожалуйста, к девяти нужнозадание, где написано д/з

ОТВЕТЫ



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
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам