Cod sursa(job #465767)
Utilizator | Neagu Bogdan Ioan nbibest | Data | 25 iunie 2010 13:04:00 |
---|---|---|---|
Problema | Mesaj4 | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Stelele Informaticii 2010, gimnaziu si clasa a IX-a, Ziua 1 | Marime | 0.46 kb |
type vec=record
a:array of 0..100000;
end;
var v:array[1..100000]of vec;
n,m,i,j,t,x,y:longint;
w:array[1..100000]of 0..100000;
begin
assign(input,'mesaj4.in');
assign(output,'mesaj4.out');
reset(input);
rewrite(output);
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
inc(w[x]);
setlength(v[x].a,w[x]+1);
setlength(v[x].a,w[x]+1);
v[x].a[w[x]]:=y;
end;
end.