Program Lin_10;
{uses crt ;}
const n = 9;
var D:array [1..n,1..n] of integer ;
  B:array[1..100] of integer;
  i,j,t,k:integer ;
  average:real;

Begin
  Writeln(' Задача 10 ') ;

  Randomize ;
  for i:=1 to n do begin
    for j:=1 to n do begin
      D[i,j]:=random(60)-30;
      Write(D[i,j]:4, ' ');
    End;
    Writeln;   
  end;

  Writeln(' Задача 10_1 ') ;

  average:=0;
  k:=0;
  for i := 1 to n do begin
    j := n+1-i;
    If D[i,j] > 0 then begin
      average :=average + D[i,j];
      k:=k+1;
    End;
  End;
  Writeln('average=',average/k);
  Writeln ;

  Writeln(' Задача 10_2 ');

  for i:=1 to n do begin
    for j:=1 to n do begin
      If D[i,j] < -5 then
        D[i,j]:=0 ;
      Write(D[i,j]:4);
    End;  
    Writeln;
  End;

  Writeln(' Задача 10_3 ');

  t:=0;
  for i:=1 to n do
    for j:=1 to n do
      If j mod 3=0 then begin
        t:=t+1;
        B[t]:=D[i,j];
        Write(B[t]:4);
      end;
 
  Writeln;
  Writeln(' Задача 10_4 ');   

  t:=0;
  for i:=1 to n do
    for j:=1 to n do
      If D[i,j] < 0 then
        t:=t+1;
  Writeln(t);
  Writeln;

  Writeln(' Задача 10_5 ');

  for i:=1 to n do begin
    t:=0;
    for j:=1 to n do
      If D[i,j] < 0 then
        t:=t+1;
    Writeln(i,' = ',t);
  End;  

  Readln;
End.