Выполните деление над двоичными числами 1) 10010/11 2)1010100/1100

1)9010
2)918,27

Сначала немного теории.
--> - импликация, следование
Таблица истинности импликации

x1 x2 r
0   0  1
0  1   1
1  0   0
1  1   1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0   0  0
0   1 0
1   0  0
1   1  1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.

(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная 
1) Лариса 
2) Сергей 
3) Геннадий 
4)Елена

Теперь по вариантам:
1) Лариса 
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей 
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена

Const n=6; m=8;
var 
a:array[1..n,1..m] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(51)-25;
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=abs(a[1,1]); min:=abs(a[1,1]); s:=0;
for i:=1 to n do
 for j:=1 to m do
  begin
  if a[i,j]>0 then s:=s+a[i,j];
  if abs(a[i,j])>max then max:=abs(a[i,j]);
  if abs(a[i,j])<min then min:=abs(a[i,j]);
  end;
writeln('s = ',s,' max = ',max,' min = ',min);
writeln('s - max * min = ',s-max*min);
end.

Пример:
Исходный массив:
 -10   4   9 -21   9  24  24 -24
 -23 -21  21  24 -18 -15  14  -8
   2 -23 -17   5  17  -8 -10 -16
 -22  -9   6 -21   3 -13  18  13
  -8  -3 -25  -6  -2   8  14  25
 -19 -10  22  -1  -6 -20  -5 -17
s = 262 max = 25 min = 1
s - max * min = 237