Const n=5; m=6;
var x:array[1..n,1..m] of integer;
k:array[1..m] of integer;
i,j,k0:integer;
begin
Randomize;
For i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=Random(20)-10;
write(x[i,j]:4);
end;
writeln;
end;
for j:=1 to m do begin
k0:=0;
for i:=1 to n do if x[i,j]<0 then k0:=k0+1;
k[j]:=k0;
end;
writeln('Количество отрицательных элементов в столбцах:');
for j:=1 to m do write(k[j]:4);
writeln;
<span>end.</span>
1110011=1*2^6+1*2^5+1*2^4+1*2^1+1*2^0=115
564=5*8^2+6*8^1+4*8^0=372
9B=9*16^1+11*16^0=155
1101101=1*2^6+1*2^5+1*2^3+1*2^2+1*2^0=109
35=3*8^1+3*8^0=27
5D=5*16^1+13*16^0=93
Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.