Дана матрица В(8х 8). Нужно сформировать новейшую матрицу С(8 8), в

program zz1;

var i, j, s: integer;sr:real;

b, c: array[1..8,1..8] of integer;

begin

 for i:=1 to 8 do begin

   for j:=1 to 8 do begin

    b[i, j]:=random(10)+1; //наполнение матрицы случайными числами и вывод на экран

     write(b[i, j]:3);

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

   end;

       writeln;

 end;

 sr:=s/64;writeln( среднее арифметическое = ,sr);

 for i:=1 to 8 do begin   // проверка элементов выше побочной диагонали

   for j:=1 to 8 do begin

    if b[i, j]gt;sr then  b[i,j]:=0;

   end;

 end;

 c:=b;

  for i:=1 to 8 do begin   //вывод ответа

   for j:=1 to 8 do begin

     write(c[i, j]:3);

   end;

   writeln;

 end;

end.