Человек так как человек живой и может различить цвета
Чтобы перейти из десятичной системы счисления в двоичную, нужно выполнить деление столбиком на 2, а остатки, начиная с последнего, и будут являтся ответом:
Program t1;
Var a: array[1..n,1..m] of integer;
i,n,m,max,s: integer;
Begin
Read (n,m);
S:=0;
Max:=0;
For i:=1 to n do
Begin
S:=s+a[i];
End;
For i:=1 to m do
Begin
If (max>a[i]) then
Max:=max
Else max:=a[i];
End;
Write (s);
Write (max);
End.