желательно Икт 8 класс​

Const
  m=10;
  n=6;
var
  a:array[1..m,1..n] of integer;
  i,j,maxr:integer;
  p,maxp:longint;
begin
  Randomize;
  Writeln('Исходный массив');
  maxp:=0;
  for i:=1 to m do
  begin
    p:=1;
    for j:=1 to n do
    begin
      a[i,j]:=Random(99)+1; { интервал [1..99] }
      Write(a[i,j]:3);
      p:=p*a[i,j]
    end;
    if maxp<p then begin maxp:=p; maxr:=i end;
    Writeln
  end;
  for i:=1 to m do
    for j:=1 to n do a[i,j]:=a[maxr,j];
  Writeln('Сформированный массив');
  for i:=1 to m do
  begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
 86 61 76  1 86 64
 93 87 34 66 35 13
 51 39 57  5 71 49
 86 47 26 30 93 80
 58 24 59 57  3 79
 46 81 17 24 11 37
 12 83 56 75 89 16
 50 93 57  1 51 64
 25 35 69 29 46 73
 68 56 68 95 42 62
Сформированный массив
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80

74 : 2 = 37  (остаток 0)
37 : 2 = 18 (остаток 1)
18 : 2 = 9 (остаток 0)
9 : 2 = 4 (остаток 1)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
В ответе записываем остатки с конца подсчетов
ответ : 1001010
74(10) = 1001010(2)  

23 : 2 = 11 (остаток 1)
11 : 2 = 5 (остаток 1)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ : 10111
23(10) = 10111(2)  

17 : 2 = 8 (остатк 1)
 8 : 2 = 4 (остаток 0)
4 : 2 = 2 (остаток 0)
2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10001
17(10) = 10001(2)  

2 : 2 = 1 (остаток 0)
1 : 2 = 0 (остаток 1)
ответ: 10
2(10)  = 10(2)