Submission #1840650
Source Code Expand
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var n,h,l,i:Integer; a:array of Integer; begin try { TODO -oUser -cConsole Main : ここにコードを記述してください } Read(l); Readln(h); Readln(n); SetLength(a,n); for i := 0 to n - 1 do Readln(a[i]); for i := 0 to n - 1 do if a[i]<l then writeln(l-a[i]) else if a[i]<=h then Writeln('0') else Writeln('-1'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
Submission Info
Submission Time | |
---|---|
Task | B - 運動管理 |
User | nmoxya |
Language | Pascal (FPC 2.6.2) |
Score | 100 |
Code Size | 596 Byte |
Status | AC |
Exec Time | 1 ms |
Memory | 256 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample-01.txt, sample-02.txt |
All | sample-01.txt, sample-02.txt, test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample-01.txt | AC | 0 ms | 128 KB |
sample-02.txt | AC | 0 ms | 128 KB |
test-01.txt | AC | 0 ms | 128 KB |
test-02.txt | AC | 0 ms | 128 KB |
test-03.txt | AC | 0 ms | 128 KB |
test-04.txt | AC | 0 ms | 128 KB |
test-05.txt | AC | 1 ms | 256 KB |
test-06.txt | AC | 0 ms | 256 KB |
test-07.txt | AC | 1 ms | 256 KB |
test-08.txt | AC | 0 ms | 256 KB |
test-09.txt | AC | 0 ms | 256 KB |
test-10.txt | AC | 1 ms | 256 KB |
test-11.txt | AC | 0 ms | 256 KB |
test-12.txt | AC | 1 ms | 256 KB |
test-13.txt | AC | 0 ms | 256 KB |
test-14.txt | AC | 0 ms | 256 KB |
test-15.txt | AC | 0 ms | 256 KB |
test-16.txt | AC | 1 ms | 256 KB |
test-17.txt | AC | 1 ms | 256 KB |
test-18.txt | AC | 0 ms | 256 KB |
test-19.txt | AC | 0 ms | 256 KB |
test-20.txt | AC | 0 ms | 256 KB |