97 в 10 сестеме перевести в двуичную
плэз​

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

program mn;

uses crt;

const m=7;n=9;

var mas:array[1..m,1..n] of Integer ;

m1, m2:array[1..n] of Integer ;

i, j, k:Integer;

begin

Randomize;

write('Исходный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do begin

mas[i, j]:=random(100);

write(mas[i, j]:3) end end ;

j:=0;

repeat

for i:=1 to n do begin

m1[i]:=mas[1+j,i];

m2[i]:=mas[m-j,i];

mas[1+j,i]:=m2[i];

mas[m-j,i]:=m1[i]; end;

j:=j+1

until j>m div 2;

writeln;

write('Преобразованный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do

write(mas[i, j] :3) end;

readln;

end.

Объяснение:

В разделе const задаем нужный размер исходного массива.