<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-99,99); a.Println;
var b:=ArrRandom(n,-99,99); b.Println;
a.Zip(b,(x,y)->x*y).Println
end.
<u>Пример</u>
n= 13
-33 -22 -61 -21 24 -40 -30 77 46 19 -60 2 53
-99 27 90 -13 -17 19 76 -85 -18 4 91 -93 -59
3267 -594 -5490 273 -408 -760 -2280 -6545 -828 76 -5460 -186 -3127
pb = 25000
pc = 16000
pt = 2000
for qb in 1..100
for qc in 1..100
qt = 100 - qb - qc
if pb*qb + pc*qc + pt*qt <= 500000
puts "%3i %3i %3i sum = %5i" % [qb,qc,qt,pb*qb + pc*qc + pt*qt]
end
end
end
Конкретное-относящиеся к одному(конкретному) лицу.
<span> по-моему, ответ - Г.</span>
<span>128 с - (1024 * 64 / 100) м</span>
<span>x c - 100 м</span>
<span>x = (128 * 100 * 100) / (1024 * 64) = 19.53</span>