Cod sursa(job #465767)

Utilizator nbibestNeagu 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.