fork download
  1. program cms;
  2. var N,M,Q,i,j : Longint;
  3. C,T,S, punteggio : array[0..25000] of Longint;
  4. tab : array [0..10000,0..10000] of Longint;
  5. begin
  6. readln(N,M,Q);
  7. for i:=0 to N-1 do
  8. for j:=0 to M-1 do
  9. begin
  10. tab[i,j]:=0;
  11. punteggio[i]:=0;
  12. end;
  13. for i:=0 to Q-1 do read(C[i]); readln;
  14. for i:=0 to Q-1 do read(T[i]); readln;
  15. for i:=0 to Q-1 do read(S[i]); readln;
  16.  
  17. for i:=0 to Q-1 do
  18. if S[i]>tab[C[i],T[i]] then tab[C[i],T[i]]:=S[i];
  19.  
  20. for i:=0 to N-1 do begin
  21. for j:=0 to M-1 do
  22. punteggio[i]:=punteggio[i]+tab[i,j]; end;
  23. for i:=0 to N-1 do write(punteggio[i],' '); writeln;
  24. end.
  25.  
Success #stdin #stdout 0s 5348KB
stdin
2 2 3
1 0 1
0 1 1
100 100 100
stdout
100  200