// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),-50,50); a.Println;
var b:=ArrRandom(ReadInteger(n=),-30,75); b.Println;
Writeln(Произведение минимальных: ,a.Min*b.Min)
end.
Пример
n= 10
-27 -31 -45 -21 -38 -13 -6 -29 30 4
n= 15
35 49 57 60 60 54 42 43 14 -28 37 4 8 -15 58
Произведение минимальных: 1260
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.