<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var mx:=b.IndexMax; var mn:=b.IndexMin;
Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
Writeln('*** Матрица-результат ***'); a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
22 72 95 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 -98 -8 94
78 50 -49 73 0 -74
------------------------
*** Матрица-результат ***
22 72 -98 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 95 -8 94
78 50 -49 73 0 -74
Console.ForegroundColor = ConsoleColor.Blue(или другой любой цвет)
Тебе такого плана надо ?
1)
CF(16) = 1100 1111(2); 321(8) = 11 010 001(2)
x = 1101 0000(2)
2)
B5(16) = 1011 0101(2); 267(8) = 10 110 111(2)
x = 1011 0110(2)
var
x,y,z:integer;
begin
writeln('Введите число'); readln(x);
if (x < 1000) and (x >= 100) or (x > -1000) and (x <= -100) then
writeln('Трехзначное');
end.