Объяснение:
#количество чисел - единственное число в первой строке
n = int(input())
#ввод элементов массива - все числа на второй строке
a = [float(x) for x in input().split()]
#сумма отрицательных чисел
sum_neg = sum(x for x in a if x < 0)
iMin, iMax = 0, 0
for i in range(len(a)):
if a[iMin] > a[i]:
iMin = i
if a[iMax] < a[i]:
iMax = i
product = 1
for i in range(iMin+1, iMax):
product *= a[i]
a.sort()
print('sum = {}, product = {}'.format(sum_neg, product))
print('sorted array:', *a)
аудитория интернета стремительно растет – дети, подростки, молодежь составляют ее значительную часть. Сейчас уже почти каждый третий ребенок в нашей стране выходит в интернет, и чем старше подростки, тем выше среди них доля «интернетчиков». Сегодня детям доступно то, что лет пятнадцать назад было под силу лишь профессионалу или даже государству – создать собственную телестудию, получить картинку или музыку из-за тридевяти земель, поуправлять собственным мульт фильмом. Во «взрослом» интернете, кроме этого, осуществляют платежи, потребляют электронные госуслуги, производят и продают контент. Через интернет дети и подростки открывают для себя мир, формируют собственную личность. Интернет дает пользователю огромные возможности как высокотехнологичный источник коммуникации, как инструмент поиска и получения информации. Для того чтобы эффективно использовать этот инструмент, нужны как умения обращаться с ним, так и определенный жизненный опыт, позволяющий не захлебнуться в океане неограниченных возможностей интернета, вовремя разглядеть подводные камни, рифы и водовороты виртуального пространства. С развитием интернета резко возросло число тех, кто использует его возможности в неблаговидных целях. Хорошо знакомые следователям и гражданам виды преступлений перешли в сеть, появились новые виды преступлений, порожденные интернетом
function IsAutomorph(s:string):boolean;
// Возвращает true, если строка s изображает
// автоморфное число, иначе возвращает false
begin
var b:BigInteger;
if BigInteger.TryParse(s,b) then
Result:=sqr(b).ToString.Right(s.Length)=s
else Result:=false
end;
begin
var s:=ReadlnString('Введите натуральное число:');
if IsAutomorph(s) then Println('Автоморфное')
else Println('Не автоморфное')
end.
Тестовые решения:
Введите натуральное число: 12890625
Автоморфное
Введите натуральное число: 3245
Не автоморфное