Question

Срочно информатика!!! Нужно решение в Паскале

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(8, -20, 40);

 a.Println;

 // part A

 var eMin := a.Select((v, i) -> (v, i))

     .Where(p -> p[0] > 0)

     .MinBy(p -> p[0]);

 Writeln('Минимальный положительный элемент №', eMin[1]+1,

     ' равен ', eMin[0]);

 // part B    

 var imin := a.IndexMin;

 Writeln('Искомое произведение равно ', (imin + 1) * a[imin])

end.