Выполнить процедурой - Pascal - Ответ 382993

uses
  crt;
const
  str=3;{количество строк}
  sto=3;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,summ:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {присваиваем суммы элементам побочной диагонали}
    for i:=str downto 1 do
    begin
      summ:=0;
      for j:=1 to sto do
        if j<>sto-i+1 then
          inc(summ,a[i,j]);
      for j:=1 to str do
        if j<>i then
          inc(summ,a[j,sto-i+1]);
      a[i,sto-i+1]:=summ;
    end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;

uses crt;
const N=9;
var i,j,c,k:integer;
m:array[1..n,1..n]of integer;
 
begin
clrscr;
c:=0;
for k:=1 to 2*N do
begin
 if k<=n then
 begin
  for i:=N downto N-k do
  begin
   j:=k-n+i;
   if (j<=n) and (i<=n) and (i>0) and (j>0) then
   begin
     inc(c);
     m[i,j]:=c;
   end;
  end;
  end else  begin
  for i:=N downto N-k do
  begin
   j:=k-n+i;
   if (j<=n) and (i<=n) and (i>0) and (j>0) then
   begin
     inc(c);
     m[i,j]:=c;
   end;
  end;
 end;
end;
 
  for i:=1 to n do
  begin
   for j:=1 to n do write(m[i,j]:3);
   writeln;
  end;
  readln;
end.