```cpp var ch:char; g,t:longint; a:array[1..1000]of char; procedure try(k:longint); var l,w:longint; begin w:=0; l:=0; while (a[g] 'E')and(g =k)or(l>=k))and(abs…

```cpp var l,n,j,s,i:longint; a:array[1..1000]of longint; f:boolean; begin readln(l,n); s:=0; fillchar(a,sizeof(a),-1);（以防数据一开始就是0） for i:=1 to n do read(a[i]);…

下面是代码。 ```cpp var n,i:longint; a:array[1..1000]of longint; begin readln(n); for i:=1 to n+1 do read(a[i]); for i:=1 to n+1 do if a[i] 0 then begin if i=n+1 then…

请大神看看，为什么会超时呀 ```cpp var s:qword; n,m,i,j,k,t,max:longint; a:array[1..80,1..80]of qword; b:array[1..10000]of qword; function f(k:longint):longint; var s:qword;…