Массивы P(10) и Q(10) заполнить целыми случайными числами в диапазоне от -10 до 10. Подсчитать количество произведений (P(I)×Q(1)) меньше 0 и найти максимальное Max из них (среди отрицательных произведений) . Вывести , P, Q, вс...
Массивы P(10) и Q(10) заполнить целыми случайными числами в диапазоне от -10 до 10. Подсчитать количество произведений (P(I)×Q(1))<0 и найти максимальное Max из них (среди отрицательных произведений) . Вывести , P, Q, все P(I)×Q(I) , Max
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы