Сформировать массив a[12,12] случайными целыми числами. вывести на печать элементы строки, в которой находится максимальный элемент матрицы a. упорядочить по возрастанию элементы каждой нечетной строки матрицы a. паскаль

sirius42295 sirius42295    3   31.08.2019 11:40    3

Ответы
maksshvanov maksshvanov  06.10.2020 07:26
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив 12x12 ***');
  var a:=MatrRandom(12,12,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Строка, содержащая максимальный элемент');
  a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2]))
      .MaxBy(e->e[1])[0]).Println;
  Writeln('*** Итоговый массив 12x12 ***');
  foreach var i in Range(0,11,2) do
    a.SetRow(i,(a.Row(i).Sorted.ToArray));
   a.Println(4)
end.

Пример
*** Исходный массив 12x12 ***
  88 -26 -91 -74 -60  21  71  40  70  -1 -72  31
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
   0  88 -51 -32 -52  22  70 -53  35  88 -14  37
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
  98  81  -9 -30  57  26 -74  84 -43 -16  26 -48
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
  65  66  68  78 -89  80 -64 -73  47  82 -31 -33
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -25  46   9   8 -23  87  18  86  73 -72   5  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
  -8  86  -8 -54  31 -95  75 -86  26 -80   3 -36
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14

Строка, содержащая максимальный элемент
98 81 -9 -30 57 26 -74 84 -43 -16 26 -48
*** Итоговый массив 12x12 ***
 -91 -74 -72 -60 -26  -1  21  31  40  70  71  88
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
 -53 -52 -51 -32 -14   0  22  35  37  70  88  88
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
 -74 -48 -43 -30 -16  -9  26  26  57  81  84  98
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
 -89 -73 -64 -33 -31  47  65  66  68  78  80  82
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -72 -25 -23   5   8   9  18  46  73  86  87  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
 -95 -86 -80 -54 -36  -8  -8   3  26  31  75  86
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика