Переведите в двоичную систему счисления числа: 200 489 543 950 1025

11001000 111101001 1000011111 1110110110 10000000001

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в более ранних версиях работа не гарантируется! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('вводите элементы массива');   var a: =new integer[m,n];   for var i: =0 to m-1 do       for var j: =0 to n-1 do read(a[i,j]);   writeln('-'*20);   foreach var c in a.cols do write(c.sum,' ') end. пример количество строк в массиве: 4 количество столбцов в массиве: 3 вводите элементы массива 1 6 -2 0 6 8 -3 6 1 4 6 -3 2 24 4

Var a: array [1..100,1..100] of integer; n,m,i,j,max: integer; begin randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(51);     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,1]; for i: =1 to n do   for j: =1 to m do   if a[i,j]> max then max: =a[i,j]; writeln('max = ',max); end. пример: n = 4 m = 5 исходный массив:   32   24   18   0   11   36   46   13   31   36   27   49   14   50   35     9   25   15   35   41 max = 50