# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1): summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N for i in range(1,n): a=int(input("Введите номиналы карточек: ")) summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет print("Потерянная карточка - {}".format(summa_range_i-summaCards))
Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.
Sub abc() a = Selection.Value For i = 1 To UBound(a, 1) aMin = a(i, 1): aMax = aMin jMin = 1: jMax = 1 For j = 2 To UBound(a, 2) If aMin > a(i, j) Then aMin = a(i, j): jMin = j End If If aMax < a(i, j) Then aMax = a(i, j): jMax = j End If Next j Cells(i, jMin).Value = aMax Cells(i, jMax).Value = aMin Next i End Sub
Sub abc()
a = Selection.Value
For i = 1 To UBound(a, 1)
aMin = a(i, 1): aMax = aMin
jMin = 1: jMax = 1
For j = 2 To UBound(a, 2)
If aMin > a(i, j) Then
aMin = a(i, j): jMin = j
End If
If aMax < a(i, j) Then
aMax = a(i, j): jMax = j
End If
Next j
Cells(i, jMin).Value = aMax
Cells(i, jMax).Value = aMin
Next i
End Sub