1. Запишите числа A и B в прямом, обратном и дополнительном кодах. 2. Выполните сложение в обратном и дополнительном коде. Полученный результат проверьте, используя правила двоичной арифметики.

A 156 B (-163)

Паскаль
---
uses crt;
var a: array[1..100,1..100] of integer;
    x,y,sum,k,n:integer;
begin
     write('Введите n: ');
     readln(n);
     clrscr;
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     k:=0;
     Sum:=0;
     for x:=1 to n do
         for y:=x+1 to n do
             if a[x,y]>0 then begin
                Sum:=Sum+a[x,y];
                inc(k);
             end;
     writeln;
     if k<>0 then write(sum/k:4:2);
end.

Program Z_3;
uses crt;
const n=5;
var i,j,s,d:byte;a:array[1..5,1..5]of byte;
begin
for i:=1 to n do
begin     
for j:=1 to n do     
begin     
if (i=1+s)and(j=n-s) then begin d:=1; a[i,j]:=10;end;   
 if d=0   then a[i,j]:=1   
           else if (i=1+s)and(j=n-s) 
           then a[i,j]:=10;     
write(' ',a[i,j],' ');     
end;
writelns:=s+1;d:=0;
end;
end.

program Z_4;
uses crt;
const n=5;
var i,j,m:byte;a:array[1..5,1..5]of byte;
begin
m:=1;j:=n;
for j:=n downto 1 do
  for i:=1 to n do
begin     a[j,i]:=m;     m:=m+1;     end;
end;
for i:=1 to n do
begin
  for j:=1 to n do
if a[i,j]<10 
   then write(' 0',a[i,j],' ')
   else write(' ',a[i,j],' ');
writeln;
end;
end.