Юный художник Вася нарисовал плакат с очень большим числом и решил повесить его на самую длинную стену школы. К сожалению, даже самая длинная стена оказалась недостаточно длинной. Теперь ему нужно выкинуть из числа ровно половину цифр. Вася — максималист, поэтому он хочет, чтобы число, получившееся после всех правок, было как можно больше, но он ни за что не согласится переставлять оставшиеся цифры местами, так как это нарушит цветовой баланс плаката Васе переделать плакат. Например, если первоначально на плакате было написано число 7825, то максимальное число, которое может получить Вася из половины имеющихся цифр, сохраняя их порядок, это 85.
Вам необходимо решить задачу для следующих пяти возможных чисел, записанных на плакате:
43521867
7854635912
78957968765876887695
123456789123456789123456789123456789123456789123456789123456789123456789
987654321087654321076543210654321054321043210321021010
В четвёртом примере на плакате выписаны цифры от 1 до 9, и эта последовательность повторена 8 раз (всего на плакате 72 цифры).
В пятом примере на плакате выписаны цифры по убыванию от 9 до 0, затем от 8 до 0, затем от 7 до 0, затем от 6 до 0, затем от 5 до 0, затем от 4 до 0, затем от 3 до 0, затем от 2 до 0, затем от 1 до 0 (всего 54 цифры).
ответом на эту задачу является пять целых чисел, записанных в пяти отдельных строках, по одному числу в строке. ответы должны быть записаны в том же порядке, в котором они приведены в условии. Если вы не можете найти ответ для какого-то данного числа, напишите в ответе вместо него любое число.
procedure MatPrint(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);
Writeln
end
end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer);
begin
for var i:=0 to Length(a,0)-1 do
for var j:=0 to Length(a,1)-1 do
if a[i,j].IsOdd then a[i,j]:=value
end;
begin
var n,m:integer;
Write('Задайте число строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,-99,99);
Writeln('Исходный массив');
MatPrint(a);
MatReplaceOdd(a,26);
Writeln('Результирующий массив');
MatPrint(a)
end.
Тестовое решение
Задайте число строк и столбцов матрицы: 5 7
Исходный массив
-14 86 52 -85 -52 -79 78
20 -80 68 89 -45 -45 -36
-41 -60 96 43 16 56 -58
-39 81 1 26 -15 -98 89
57 -51 79 -28 -24 -63 -74
Результирующий массив
-14 86 52 26 -52 26 78
20 -80 68 26 26 26 -36
26 -60 96 26 16 56 -58
26 26 26 26 26 -98 26
26 26 26 -28 -24 26 -74