Cod sursa(job #222730)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 24 noiembrie 2008 21:19:56
Problema Elimin Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.14 kb
var f,g:text;
    n,m,r,c,s,sr,sc:longint;
    a:array[1..100 , 1..100]of longint;
    ar,ac:array[1..100]of longint;
procedure citire;
          var i,j:longint;
          begin
          assign(f,'elimin.in');reset(f);
          readln(f,n,m,r,c);
          for i:=1 to n do
              for j:=1 to m do
                  begin
                  read(f,a[i,j]);
                  s:=s+a[i,j];
                  end;
          close(f);
          end;
procedure calculare_r;
          var i,j:longint;
          begin
          for i:=1 to n do
              for j:=1 to m do
                  ar[i]:=ar[i]+a[i,j];
          end;
procedure calculare_c;
          var i,j:longint;
          begin
          for i:=1 to m do
              for j:=1 to n do
                  ac[i]:=ac[i]+a[j,i];
          end;
procedure ordonarer;
          var i,aux:longint;
          begin
          for i:=1 to n-1 do
              if ar[i]>ar[i+1] then begin
                                    aux:=ar[i];
                                    ar[i]:=ar[i+1];
                                    ar[i+1]:=aux;
                                    i:=0;
                                    end;
          end;
procedure ordonarec;
          var i,aux:longint;
          begin
          for i:=1 to m-1 do
                  if ac[i]>ac[i+1] then begin
                                        aux:=ac[i];
                                        ac[i]:=ac[i+1];
                                        ac[i+1]:=aux;
                                        i:=0;
                                        end;
          end;
procedure eliminr;
          var i:longint;
          begin
          for i:=1 to r do
              sr:=sr+ar[i];
          end;
procedure eliminc;
          var i:longint;
          begin
          for i:=1 to c do
              sc:=sc+ac[i];
          end;
procedure afisare;
          begin
          assign(g,'elimin.out');rewrite(g);
          writeln(g,s-sc-sr);
          close(g);
          end;
begin
citire;
calculare_r;
calculare_c;
ordonarer;
ordonarec;
eliminr;
eliminc;
afisare;
end.