Program X;Var A, B, C: integer;Begin readln( A, B, C);if A B then begin D := A;E:= B;endelse begin D:= B;E:= A;end;if C>D then D:= C;if CKE then E:= C;writeln(D, ', E);end.а 3б-1с7​

Пусть в "долях" a < =  b < = c вершин, и проведены все рёбра между разными "долями". так как из каждой вершины, лежащей в первой "доле", можно провести только  b + c рёбер, из второй доли — a + c рёбер, из третьей — a + b рёбер, то общее количество рёбер равно (a * (b + c) + b * (a + c) + c * (a + b))/2 = ab + ac + bc (деление на 2 возникает из-за того, что каждое ребро подсчитывается дважды). нужны такие a, b, c, при которых значение выражения ab + bc + ac будет максимально. максимальное значение можно найти перебором. python 3: max_value = 0     for a in range(40//3 + 1):     for b in range(a, (40 - a)//2 + 1):       c = 40 - a - b       value = a * b + a * c + b * c       max_value = max(max_value, value)   print(max_value) ответ. 533

# Задание 1

print('Задание 1')

while True:

   N = int(input('N: '))

   if N in range(1, 1001):

       break

   print('N в промежутке [1, 1000]')

arr = []

for _ in range(N):

   arr.append(int(input('Введите элемент массива: ')))

print(arr)

count = 0

for i, el in enumerate(arr):

   if el == 0:

       count += 1

       arr[i] = i

print(arr)

print(count)

# Задание 2

print('Задание 2')

while True:

   K = int(input('N: '))

   if K in range(1, 201):

       break

   print('K в промежутке [1, 1000]')

arr = []

arr_2 = []

for _ in range(K):

   arr.append(int(input('Введите оценку: ')))

for i, el in enumerate(arr):

   if el == 5:

       arr_2.append(i)

print(arr)

print(arr_2)