Tимa96, вот , должно работать . но писал с телефона program hi; const n = 20; var a : array[1..n,1..n] ; b : array[1..n,1..2] ; i,j,k : integer; Begin for i:= 1 to n do begin for j:= 1 to n do begin read( a[i,j] ) ; end; end; k:=0; for i:= 1 to n do begin for j:= 1 to n do begin k:= k + a[i,j] ; end; b[i,1] := k; b[i,2] := i; end; for j:= 1 to n do begin for i:= 1 to n-1 do begin if b[i,1] < b[i+1,1] then begin k:=b[i,1]; b[i,1] := b[i+1,1] ; b[i+1,1] := k; k:=b[i,2]; b[i,2] := b[i+1,2] ; b[i+1,2] := k; end; end; end; for i:= 1 to n do begin write( i,"mesto y komandi #",b[i,2] ); end; Readln; End.
Ссылка на пост
27 фев 2009 в 06:36