Submission #3015080

Source Code Expand

var
    a,b,c,i,ans:longint;
    a1:array[1..100000]of longint;
begin
    read(a,b,c);
    for i:=1 to a do
    begin
        read(a1[i]);
        if(a1[i]<b)or(a1[i]>=c)then inc(ans);
    end;
    writeln(ans);
end.

Submission Info

Submission Time
Task A - A Barricade
User luogu_bot2
Language Pascal (FPC 2.6.2)
Score 66
Code Size 227 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