pascal

{08.02.2019}
var
 a:array[1..10,1..10] of integer;
 i,j,n,n1,i1,sp,so:integer;
begin
 readln(n,n1);
 sp:=0;
 for i := 1 to n do
  for j:= 1 to n1 do
   readln (a[i,j]);
 for i := 1 to n do
  for j := 1 to n1 do
   if (i=j) and (i>1) then
    for i1:= i downto 1 do
     if (a[i1,j]>0) and (i<>i1) then sp:=sp+a[i1,j];
 for i := 1 to n do
  for j := 1 to n1 do
   if (i=j) and (i<>n) then
    for i1:= i to n do
     if (a[i1,j]<0) and (i<>i1) then so:=so+a[i1,j];
 for i := 1 to n do
 begin
  for j:= 1 to n1 do
  write (a[i,j]:4);
  writeln;
 end;
 writeln(sp,' ',so);
end.

{12.02.2019}
1)
var
 a:array[1..10,1..10] of integer;
 n,n1,i,j,k:integer;
begin
 readln (n,n1);
  for i := 1 to n do
   for j:= 1 to n1 do
    readln(2a[i,j]);
  for i := 1 to n do
   for j:= 1 to n1 do
    if (i=j) and (a[i,j]<0) then
     k:=k+1;
 if k=0 then
  writeln ('отрицательных нет')
  else
  writeln(k);
end.

2)
var
 a:array[1..10,1..10] of integer;
 n,i,j,k,i1:integer;
begin
 readln (n);
  for i := 1 to n do
   for j:= 1 to n do
    readln(a[i,j]);
  for i := 1 to n do
   for j:= 1 to n do
    if j=n-i+1 then
     for i1 := i2
     downto 1 do
      if a[i1,j]=0 then
       k:=k+1;
 for i:=1 to n do
 begin
  for j:=1 to n do
   write ( A[i,j]:4 );
  writeln;
 end;
 writeln(k);
end.

{13.02.2019 формирование массивов}
1)
var
 a:array[1..10,1..12]of integer;
 n1,i,j,sum,n,f,i1,l,poz:integer;
begin
 readln(n);
 for i:= 1 to n do
  for j:= 1 to n do
  begin
   if i=1 then
    for i1:= 1 to n do
     a[i,i1]:=i1;
   if j=n then
    for i1:= n downto 1 do
     a[abs(n-i1+1),j]:=i1;
   if j=1 then
    for i1:= 2 to n do
     a[i1,j]:=i1;
   if i=n then
    for i1:= 2 to n-1 do
     a[i,i1]:=i1;
  end;
 for i:= 1 to n do
 begin
  for j:= 1 to n do
   write (a[i,j]:4);
  writeln;
 end;
end.

2)
var
 a:array[1..10,1..12]of integer;
 n1,i,j,sum,n,f,i1,l,poz:integer;
begin
 readln(n);
 for i:= 1 to n do
  for j:= 1 to n do
  begin
   if i=1 then
    for i1:= 1 to n do
     a[i,i1]:=1;
   if i=n then
    for i1:= 1 to n do
     a[i,i1]:=n;
   if j=1 then
    for i1:= 1 to n do
     a[i1,j]:=i1;
   if j=n then
    for i1:= 1 to n do
     a[i1,j]:=i1;
  end;
 for i:= 1 to n do
 begin
  for j:= 1 to n do
   write (a[i,j]:4);
  writeln;
 end;
end.

3)
var
 a:array[1..10,1..12]of integer;
 n1,i,j,sum,n,f,i1,l,poz:integer;
begin
 readln(n);
 for i:= 1 to n do
  for j:= 1 to n do
  begin
   for i1:= i to n do
    a[i,i1-i+1]:=i1;
  end;
 for i:= 1 to n do
 begin
  for j:= 1 to n do
   write (a[i,j]:4);
  writeln;
 end;
end.