Вот, это для первого и второго соответственно =)
Ну отдыхает и че?.......,,.,,
Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
1.
n = int(input())
if n == 0:
print(0)
else:
a, b = 0, 1
for i in range(2, n + 1):
a, b = b, a + b
print(b)
2.
d = []
k = []
for i in range(10):
d.append(int(input()))
for i in range(len(d)):
if d[i] % 2 == 0:
if d[i] % 3 != 0:
k.append(d[i])
print(min(k))