Дан двумерный массив чисел 8 x 7. Отсортировать строчки массива в
Дан двумерный массив чисел 8 x 7. Отсортировать строчки массива в порядке возрастания.
Язык pascal
1 ответ
Алексей
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программка не работает, обновите версию!
begin
Writeln('*** Исходный массив [',8,',',7,'] ***');
var a:=MatrRandom(8,7,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
a.SetRow(i,a.Row(i).Sorted.ToArray)
end;
Writeln('*** Результирующий массив ***');
a.Println(4)
end.
Пример
*** Начальный массив [8,7] ***
-45 -24 26 38 -83 -97 77
15 -68 80 -47 3 -61 -52
-71 70 -52 46 70 59 -15
-66 -20 -32 82 63 1 76
93 -99 -38 22 83 -36 -42
53 17 -19 -7 47 12 -58
53 21 40 -88 -89 65 80
-73 -16 -78 -62 3 18 -79
----------------------------
*** Результирующий массив ***
-97 -83 -45 -24 26 38 77
-68 -61 -52 -47 3 15 80
-71 -52 -15 46 59 70 70
-66 -32 -20 1 63 76 82
-99 -42 -38 -36 22 83 93
-58 -19 -7 12 17 47 53
-89 -88 21 40 53 65 80
-79 -78 -73 -62 -16 3 18
// Внимание! Если программка не работает, обновите версию!
begin
Writeln('*** Исходный массив [',8,',',7,'] ***');
var a:=MatrRandom(8,7,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
a.SetRow(i,a.Row(i).Sorted.ToArray)
end;
Writeln('*** Результирующий массив ***');
a.Println(4)
end.
Пример
*** Начальный массив [8,7] ***
-45 -24 26 38 -83 -97 77
15 -68 80 -47 3 -61 -52
-71 70 -52 46 70 59 -15
-66 -20 -32 82 63 1 76
93 -99 -38 22 83 -36 -42
53 17 -19 -7 47 12 -58
53 21 40 -88 -89 65 80
-73 -16 -78 -62 3 18 -79
----------------------------
*** Результирующий массив ***
-97 -83 -45 -24 26 38 77
-68 -61 -52 -47 3 15 80
-71 -52 -15 46 59 70 70
-66 -32 -20 1 63 76 82
-99 -42 -38 -36 22 83 93
-58 -19 -7 12 17 47 53
-89 -88 21 40 53 65 80
-79 -78 -73 -62 -16 3 18
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов