Ответ:

Объяснение:

program mas;

const m=5;

     n=4;

var mat:array[1..m,1..n]of integer;

   i,j,k:integer;

   s:real;

begin

for i:=1 to m do

for j:=1 to n do

read(mat[i,j]);

for i:=1 to m do

begin

    for j:=1 to n do

    write(mat[i,j]:6);

    writeln;

end;

for j:=1 to n do

begin

    s:=0; k:=0;

    for i:=1 to m do

    s:=s+mat[i,j];

    s:=s/m;

    for i:=1 to m do

    if mat[i,j]>s then inc(k);

    writeln('Столбец: ',j,'; СА: ',s,'; Элементов больше СА: ',k);

end;

end.