Проверено в PascalABC.NET
Всё хорошо работает(Скриншот):
Ответ:
a=open("input.txt").read().split()
a=list(map(int,a))
b=open("output.txt","w")
b.write(str(sum(a))+"\n")
b.write(str(sum(a)/len(a)))
b.close
Объяснение:
<span>var x,y:integer;
begin
write('x = ');
readln(x);
y:=1-2*x+3*x*x-4*x*x*x;
writeln('y = ',y);
end<span>.
Пример:
</span><span>x = 3
y = -86</span></span>
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.