Cod sursa(job #697406)

Utilizator VanessaMercea 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
Raporteaza aceasta sursa 
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.