Submission #2013096


Source Code Expand

var
  ans, a, i, l, h, n: integer;
begin
  read(l);
  readln(h);
  readln(n);
  for i := 1 to n do
  begin
    ans := 0;
    readln(a);
    if a < l then
      ans := l - a
    else if h < a then
      ans := -1
    else
      ans := 0;
    
    writeln(ans);
  end;
end.

Submission Info

Submission Time
Task B - 運動管理
User masakt
Language Pascal (FPC 2.6.2)
Score 100
Code Size 290 Byte
Status AC
Exec Time 0 ms
Memory 128 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
AC × 2
AC × 22
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 0 ms 128 KB
test-06.txt AC 0 ms 128 KB
test-07.txt AC 0 ms 128 KB
test-08.txt AC 0 ms 128 KB
test-09.txt AC 0 ms 128 KB
test-10.txt AC 0 ms 128 KB
test-11.txt AC 0 ms 128 KB
test-12.txt AC 0 ms 128 KB
test-13.txt AC 0 ms 128 KB
test-14.txt AC 0 ms 128 KB
test-15.txt AC 0 ms 128 KB
test-16.txt AC 0 ms 128 KB
test-17.txt AC 0 ms 128 KB
test-18.txt AC 0 ms 128 KB
test-19.txt AC 0 ms 128 KB
test-20.txt AC 0 ms 128 KB