Массивы P(10) и Q(10) заполнить целыми случайными числами в диапазоне от -10 до 10. Подсчитать количество произведений (P(I)×Q(1))<0 и найти максимальное Max из них (среди отрицательных произведений) . Вывести , P, Q, все P(I)×Q(I) , Max

// PascalABC.NET 3.0,сборка 1073const  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   4910   0  -7    0=================Количество AixBi<0 равно 4Максимум среди этих произведений равен -9