Submission #3095044


Source Code Expand

var a,b,i,n,s:Longint;
begin
read(n);
for i:=1 to n do begin
read(s);
if b<s then begin a:=b;b:=s;end
else if (b<>s)and(a<s) then a:=s;
end;
writeln(a);
end.

Submission Info

Submission Time
Task B - 心配性な富豪、ファミリーレストランに行く。
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 100
Code Size 166 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 100 / 100
Status
AC × 18
Set Name Test Cases
All random_1.txt, random_10.txt, random_2.txt, random_3.txt, random_4.txt, random_5.txt, random_6.txt, random_7.txt, random_8.txt, random_9.txt, sample_1.txt, sample_2.txt, sample_3.txt, small_1.txt, small_2.txt, small_3.txt, small_4.txt, small_5.txt
Case Name Status Exec Time Memory
random_1.txt AC 0 ms 128 KB
random_10.txt AC 0 ms 128 KB
random_2.txt AC 0 ms 128 KB
random_3.txt AC 0 ms 128 KB
random_4.txt AC 0 ms 128 KB
random_5.txt AC 0 ms 128 KB
random_6.txt AC 0 ms 128 KB
random_7.txt AC 0 ms 128 KB
random_8.txt AC 0 ms 128 KB
random_9.txt AC 0 ms 128 KB
sample_1.txt AC 0 ms 128 KB
sample_2.txt AC 0 ms 128 KB
sample_3.txt AC 0 ms 128 KB
small_1.txt AC 0 ms 128 KB
small_2.txt AC 0 ms 128 KB
small_3.txt AC 0 ms 128 KB
small_4.txt AC 0 ms 128 KB
small_5.txt AC 0 ms 128 KB