Pagini recente » Statistici Popescu George Emanuel (George94) | Istoria paginii utilizator/ilcadragos | Diferente pentru utilizator/robybrasov intre reviziile 26 si 27 | Diferente pentru schimbare-borland/argumentatie intre reviziile 8 si 9 | Cod sursa (job #222731)
Cod sursa(job #222731)
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.