readln(n); writeln ('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў'); readln(m); if (n<0) or (m<0) or (m>max )then writeln('vi vveli ne dopustimie zna4enija') until (n>0) and (n<max) and (m>0) and (m<max);
writeln('‚ў®¤ ¬ ваЁжл'); for i:=1 to n do for j:=1 to m do begin write ('ўўҐ¤ЁвҐ ',i,' н«Ґ¬Ґв ',j,'stolbca:'); readln(a[i,j]); end; writeln('isxodnaya'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; for j:=1 to m do begin for k:=1 to n-1 do for i:=m downto k+1 do if a[i,j]<a[i-1,j] then begin x:=a[i-1,j]; a[i,j]:=a[i-1,j]; a[i,j]:=x; end; (ошибка где то здесь но не въезжаю где) end; writeln('®вб®авЁа®ў п ¬ ваЁж '); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; K:=0; for i:=1 to n do k:=k+a[i,j]; sum:=k/n; write('б।ҐҐ аЁд¬.=',sum:0:3); repeat until keypressed; end.