|
|
вернуться в форумwhere is mistake? SOS Послано Dior 23 июн 2014 21:05 var m:array [1..10] of integer; q,z,i,s:integer; begin read(q); write(' '); read(z); readln(m[1]); s:=m[1]; for i:=2 to 10 do begin write(' '); read(m[i]); s:=s+m[i]; end; s:=s*20; if z-s>=q then write('No chance.') else write('Dirty debug :('); end. |
|
|