Submission #2559675


Source Code Expand

var
    a,b,c,i,x,s:longint;
begin
    read(a,b,c);
    s:=0;
    for i:=1 to a 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_bot4
Language Pascal (FPC 2.6.2)
Score 66
Code Size 179 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