Есть много вариантов, первый это ctrl + b, но он не поддерживает ввод. Поетому советую использовать SublimeRELP, установить его не так сложно воспользуйтесь Package Control -> Install Package -> SublimeRELP. Теперь ви можете Tools -> SublimeRELP -> Python -> Run Current file. Но это поддерживает только Python2.7 и пользоваться не удобно. Для того что бы исправить это все открываем Preferences -> Key Bindings -> User и добавляем такое:
{ "keys": ["ctrl+b"], "command": "repl_open",
"caption": "Python - RUN current file",
"id": "repl_python_run",
"mnemonic": "d",
"args": {
"type": "subprocess",
"encoding": "utf8",
"cmd": ["python3", "-u", "$file_basename"],
"cwd": "$file_path",
"syntax": "Packages/Python/Python.tmLanguage",
"external_id": "python",
"extend_env": {"PYTHONIOENCODING": "utf-8"}
}
}
(в квадратние скобки).
Теперь при Ctrl + b все должно работать.
Как то так получается
uses crt;
var
a,b:array[1..1000] of real;
i,n,k,j:integer;
max,sum,tmp:real;
begin
read(n);
for i:=1 to n do
a[i]:=sqrt(i)-cos(i);
max:=a[1];
for i:=1 to n do
if max<a[i] then begin max:=a[i]; k:=i; end;
for i:=1 to k-1 do
sum:=sum+a[i];
j:=0; tmp:=0;
for i:=k+1 to n do
begin
tmp:=a[i];
j:=j+1;
b[j]:=tmp;
end;
writeln('Получившийся массив: ');
for i:=1 to n do
write(a[i]:3:3,' ');
writeln;
writeln('Сумма до максимального: ');
writeln(sum:3:3);
writeln('Массив после максимального: ');
for i:=1 to j do
write(b[i]:3:3,' ');
end.