Ішкі және сыртқы жадқа салыстырмалы талдау жасандар.

// PascalABC.NET 3.0,сборка 1073
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,p,k,max:integer;
begin
  Randomize;
  max:=-200; k:=0;
  Writeln(' №   A   B  AixBi');
  Writeln('');
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    b[i]:=Random(21)-10;
    p:=a[i]*b[i];
    Writeln(i:2,a[i]:4,b[i]:4,p:5);
    if p<0 then begin Inc(k); if p>max then max:=p end
  end;
  Writeln('');
  Writeln('Количество AixBi<0 равно ',k);
  Writeln('Максимум среди этих произведений равен ',max);
end.

Тестовое решение:
 №   A   B  AixBi

 1   8  -7  -56
 2  -7  -8   56
 3  -4   3  -12
 4  -9  -2   18
 5 -10   3  -30
 6  -3   3   -9
 7   0   2    0
 8  -9  -7   63
 9  -7  -7   49
10   0  -7    0

Количество AixBi<0 равно 4
Максимум среди этих произведений равен -9

(начало)
|
/a,b,c/
| - +
< a>b and a>c > - /a/
| - + |
< b>c > /b/
| - |
/c/(konec)

(начало)
|
/a,b,c,d,e/
| - +
< a>b and a>c and a>d and a>e> - /a/
| - + |
< b>c and b>d and b>e > /b/
| - + |
< b>d and b>e > - /c/
| - + |
< d>e > /d/
| - |
/d/(konec)

(nachalo)
|
/a,b,c/
| +
< a=b and b=c >/'Wse starshe wseh'/
| - + + |
< a=b >< a > c >/'A u B starshe C'/
| | - |
| +/'C starshe wseh'/
| - + + |
< b=c >< b > a >/'B u C starshe A'/
| | - |
| +/'A starshe wseh'/
| - + + |
< a=c >< a > b >/'A u C starshe B'/
| | - |
| +/'B starshe wseh'/
| - + |
< a>b and a>c > /'A starshe wseh'/
| - + |
< b>c > /'B starshe wseh'/
| - |
/'C starshe wseh'/(konec)