//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
37)var a,b,c : real;begin readln(a, b); begin if a >= b then writeln(b, a) else writeln(a,'и', b) end; if a >= b then b:= b*a*2 else a:= b*a*2; if a>= b then a:= (a+b)/2 else b:= (a+b)/2;writeln(a,'и',b);end.
Да, нужно. Любой принтер требует отключения при заправке чернил