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

Ответы 2

  • В общем, милая задачка за 5 баллов
    • Автор:

      dayami
    • 5 лет назад
    • 0
  • // 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
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years