Тему я не поняла а скоро контрольная работа. если можно с рисунком и пояснением.

Uses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
    for i:=1 to n do
        begin
            writeln;
               for j:=1 to m do
                  begin
                     a[i,j]:=random(30);
                      write(a[i,j]:4);
                  end;
          end;
writeln;
for j:=1 to m do
  begin
      s:=0;k:=0;
          for i:=1 to n do
               if a[i,j]mod 2<>0 then
                   begin
                       s:=s+a[i,j];
                        k:=k+1;
                   end;
      if k<>0 then
         begin
            c:=c+1;
            b[c]:=s/k;
         end;
     end;
for i:=1 to c do
   write(b[i]:8:2);
readkey;
end.

          

Sub SetColor()
For Each C In Range(Range("A1").Value)
        If C.Value = Range("E1") Then
            With C.Font
                .Bold = Range("D1").Font.Bold
                .Color = Range("D1").Font.Color
                .Italic = Range("D1").Font.Italic
                .Underline = Range("D1").Font.Underline
            End With
            C.Interior.Color = Range("D1").Interior.Color
        Else
            With C.Font
                .Bold = False
                .Italic = False
                .Underline = xlUnderlineStyleNone
                .ColorIndex = xlAutomatic
            End With
            C.Interior.Color = vbWhite
        End If
    Next C
End Sub

если в ячейках, указанных в А1, значения те же, что и в Е1, то эти ячейки меняют свое оформление на то же, что и ячейка D1, если там другое значение - ставится стандартное оформление