Нужно переписать программу с питона Python на паскаль PascalABC.net n = int(input())
a = []
m0 = 0
m1 = 0
ms = 0
for i in range(6):
a.append(int(input()))
a.append(0)
for i in range(6, n):
a[6] = int(input())
if a[0] % 2 == 0 and a[0] > m0:
m0 = a[0]
if a[0] % 2 == 1 and a[0] > m1:
m1 = a[0];
s = 0;
if a[6] % 2 == 0 and m1 > 0:
s = a[6] + m1
if a[6] % 2 == 1 and m0 > 0:
s = a[6] + m0
if s > ms:
ms = s
for j in range(6):
a[j] = a[j + 1]
print(ms)

medi8    2   28.01.2021 14:51    1