Submission #3010966

Source Code Expand

var
 n,b,c,s,x,i:longint;
begin
 readln(n,b,c);
 for i:=1 to n do
  begin
   read(x);
   if (x<b) or (x>=c) then inc(s);
  end;
 writeln(s);
end.

Submission Info

Submission Time
Task A - A Barricade
User luogu_bot3
Language Pascal (FPC 2.6.2)
Score 66
Code Size 155 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 All
Score / Max Score 66 / 66
Status
AC × 9
Set Name Test Cases
All 00_sample.txt, 01_sample.txt, 02_sampe.txt, 03_sample.txt, corner_case_03.txt, corner_case_04.txt, random_case_00.txt, random_case_01.txt, random_case_02.txt
Case Name Status Exec Time Memory
00_sample.txt AC 0 ms 128 KB
01_sample.txt AC 0 ms 128 KB
02_sampe.txt AC 0 ms 128 KB
03_sample.txt AC 0 ms 128 KB
corner_case_03.txt AC 0 ms 128 KB
corner_case_04.txt AC 0 ms 128 KB
random_case_00.txt AC 0 ms 128 KB
random_case_01.txt AC 0 ms 128 KB
random_case_02.txt AC 0 ms 128 KB