Cod sursa(job #697406)
| Utilizator |  Mercea Vanessa Vanessa |
Data | 29 februarie 2012 09:02:05 |
|---|---|---|---|
| Problema | Loto | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
var n,i : integer;
v:array[1..10]of integer; f,g:text;
begin randomize;
i:=0;
assign (f,'loto.in'); reset(f);
while not eof(f) do begin i:=i+1; read (f,v[i]);end;
assign (g,'loto.out'); rewrite (g);
for i:=1 to 6 do
write(g,random(10),' '); close (f); close (g);
end.