(см. объяснение)
Объяснение:
Решение задачи на PascalABC.NET:
##
var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);
if(a.Count = 0) then print('NO')
else print(a.Sum/a.Count);
Решение задачи на PascalABC:
var a, N, i, sum, k: integer;
begin
sum:= 0;
k:= 0;
readln(N);
for i:= 1 to N do
begin
read(a);
if(a>0) then
begin
k:= k+1;
sum:= sum+a;
end;
end;
if(k=0) then writeln('NO')
else writeln(sum/k);
end.
Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.
Задание выполнено!
# 1
from builtins import print
a = int(input())
b = int(input())
c = int(input())
d = int(input())
if (a + b + c + d) == (a * b * c * d):
print('Сумма и произведения равны')
else:
if (a + b + c + d) < (a * b * c * d):
print('Cумма меньше произведения')
else:
print('Сумма больше произведения')
#2
sum = 0
for i in range(4):
a = int(input())
if a > 0:
sum+=a
print(sum)
# 3
sum = 0
for i in range(4):
a = int(input())
if a < 0:
sum += a
print(sum)
# 4
minus = 0
plus = 0
null = 0
for i in range(4):
a = int(input())
if a < 0:
minus += 1
else:
if a > 0:
plus += 1
else:
null += 1
print('Положительных {}, отрицательных {}, нулей {}'.format(plus, minus, null))
# 5
a = int(input())
b = int(input())
polusum = (a * b) / 2
ydvoen = 2 * a * b
if a > b:
a = polusum
b = ydvoen
else:
b = polusum
a = ydvoen
print(a, b)
# 6
z = []
for i in range(3):
z.append(input())
if z[0] == min(z):
z[0] = 0
else:
if z[1] == min(z):
z[1] = 0
else:
z[2] = 0
print(z)
#7
z = []
for i in range(4):
z.append(int(input()))
print(max(z)-min(z))
# 8
M = 0
kvartal = 0
M = int(input())
if (M > 1) and (M < 4):
kvartal = 1
print('Квартал - ', kvartal)
else:
if (M > 3) and (M < 7):
kvartal = 2
print('Квартал - ', kvartal)
else:
if (M > 6) and (M < 10):
kvartal = 3
print('Квартал - ', kvartal)
else:
if (M > 9) and (M < 13):
kvartal = 4
print('Квартал - ', kvartal)
if kvartal == 0:
print('Введён неккоректный месяц')
# 9
list = ['крыса', 'корова', 'тигр', 'заяц', 'дракон', 'змея', 'лошадь', 'овца', 'обезьяна', 'петух', 'собака', 'свинья']
god = int(input())
opred = (god - 1995) % 12 - 1
print(list[opred])
Во-первых, в языке Python для получения случайных чисел, нужно подключить библиотеку Random. В Pascal подключения библиотек не нужно.
Во-вторых, в Pascal необходимо проинициализировать функцию, выполнив команду Randomize; в Python этого делать не надо.