1710
или я не понял вопроса
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
print('Вводите числа в одной строке через пробел:')
a = list(map(int,input('Ввод: ').split()))
max = -99999
min = 99999
pos = -1
maxpos = False
for i in a:
if i > max:
max = i
if i < min:
min = i
for i in a:
pos += 1
if (i == max) and (maxpos == False):
maxpos = pos
if i == min:
minpos = pos
a[maxpos] = min
a[minpos] = max
print('Вывод: ',end='')
for i in range(0,len(a)):
print(a[i],end=' ')