В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
EdiNoRoShKa228
EdiNoRoShKa228
28.08.2020 06:18 •  Информатика

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

Ответ:
Princess358ghhh
Princess358ghhh
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?