var3

program var3;
var
  mtrx: array[1 ..10, 1..12] of integer;
  sum,num,i,j: integer;
  f1: text;
begin
  assign(f1, 'matr.txt');
  rewrite(f1);
  for i:=1 to 10 do begin
    for j:=1 to 12 do begin
      mtrx [i,j]:=random(21)-10;
      write(f1, mtrx[i,j]:4);
      write(mtrx [i,j]:4);
      if (i mod 2=0) and (mtrx[i,j]<0) then begin
        sum:=sum+mtrx[i,j];
        num:=num+1;
      end;
    end;
    writeln();
    writeln(f1);
  end;
  writeln();
  writeln(f1);
  writeln('сумма:', sum);
  writeln(f1, 'сумма:', sum);
  writeln('кол-во: ',num);
  writeln(f1,'кол-во: ',num);
  close(f1);
end.