В одномерном массиве посчитать произведение номеров максимального и минимального элементов среди положительных чисел. Массив должен содержать не менее 20 чисел которые генерируются случайно

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Произведение равно ',(a.IndexMin+1)*(a.IndexMax+1))
end.

Пример
n= 23
-7 30 27 -1 38 35 -7 -45 -29 39 -32 -4 -1 -15 15 13 19 21 26 14 -22 -15 15
Произведение равно 80

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.