Cod sursa(job #2159956)

Utilizator lpopa582Popa Laurentiu lpopa582 Data 11 martie 2018 11:13:08
Problema Energii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
program pr;
uses crt;
var e,c,s:array [1..1001] of longint;
j,a,b,n,i,w,min:integer;
begin
clrscr;
readln(n);
readln(w);
for i:=1 to n do
readln(e[i],c[i]);
a:=0;
j:=0;
for i:=1 to n do
if e[i]=w then begin
a:=a+1;
j:=j+1;
s[j]:=c[i];
end;
min:=s[1];
for i:=1 to a do
if min>s[i] then min:=s[i];
writeln(min);
end.