Cod sursa(job #109551)
| Utilizator |  Szoverfi Balazs Sramos4 |
Data | 25 noiembrie 2007 11:45:38 |
|---|---|---|---|
| Problema | Economie | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | preONI 2008, Runda 1, Clasa a 9-a | Marime | 0.31 kb |
var t:array [1..1000] of longint;
i,n,a :integer;
f,g:text;
x:boolean;
Begin
assign(f,'economie.in');reset(f);
assign(g,'economie.out');rewrite(g);
read(f,n);
for i:=1 to n do
read(f,t[i]);
for i:=1 to n do
if t[i]=1 then x:=true;
if x then writeln(g,1,' ',1);
end.
