begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
Writeln;
var t := a.ElementsWithIndices.MaxBy(p -> p[0]);
var (r, c) := (t[1], t[2]);
a.SetRow(r, ArrFill(n, 1));
a.SetCol(c, ArrFill(n, 1));
a.Println(4)
end.
Не уверена, что поняла вопрос правильно, но всё-таки:
1. Разделить десятичное число на 2, получится частное и остаток.
2. Разделить <em>частное</em> на 2, получится частное и остаток.
3. Продолжать деление частных, пока последнее частное не будет меньше 2.
4. Последнее частное и остатки записать в обратном порядке.
Например, из 27 в десятичной = 11011 в двоичной.
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.