Для вычисления среднего значения используйте функцию СРЗНАЧ, для вычисления всего используйте функцию СУММ

Const n = 50; k= 50;var A:Array[1..n,1..k] of integer;i,j,mn,mk,z,sum,v:integer;beginwrite('Введите n'); readln(mn);write('Введите k'); readln(mk);for i:= 1 to mn dobeginfor j:= 1 to mk dobeginA[i,j]:= random(100)-50;write(A[i,j]:5)end;writeln;end;writeln;writeln('Суммы элементов массива в стобце');for i:= 1 to mn dobeginfor j:= 1 to mk dobeginfor z:= 1 to mn dobeginif z <> i thenbeginsum:= sum + A[z,j];end;end;if A[i,j] > sum then v:=v +1;write(sum:5);sum:=0;end;writeln;end;write('Число особых элементов массива = ',v);end.

program mn;

uses crt;

const m=7;n=9;

var mas:array[1..m,1..n] of Integer ;

m1, m2:array[1..n] of Integer ;

i, j, k:Integer;

begin

Randomize;

write('Исходный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do begin

mas[i, j]:=random(100);

write(mas[i, j]:3) end end ;

j:=0;

repeat

for i:=1 to n do begin

m1[i]:=mas[1+j,i];

m2[i]:=mas[m-j,i];

mas[1+j,i]:=m2[i];

mas[m-j,i]:=m1[i]; end;

j:=j+1

until j>m div 2;

writeln;

write('Преобразованный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do

write(mas[i, j] :3) end;

readln;

end.

Объяснение:

В разделе const задаем нужный размер исходного массива.