Есть рандомная матрица надо создать матрицу суммы элементов, которые находятся выше и правее элемента

[users1]

Привет всем. Нужна помощь
Есть рандомная матрица надо создать матрицу суммы элементов, которые находятся выше и правее элемента
Например есть такая матрица
А
1 2 3
4 5 6
7 8 9
получить матрицу
Б
6 5 3
21 16 9
45 33 18
Помогите пожалуйста

[Аватар]

Ну и покажи кодом где легко, а где тупишь ))

[users1]

Вот это у меня есть осталось только шаг с суммированием

program p2;

uses
  crt;

const
  KOL_STROK = 1000;
  KOL_STOLB = 1000;

var
  vvodStrok, vvodStolb: word;
  masDan: array[1..KOL_STROK, 1..KOL_STOLB] of real;
  masPol: array[1..KOL_STROK, 1..KOL_STOLB] of real;
  sum: real;
  vvodProv: char;
  i, j: byte;

begin
  repeat
    writeln('Введите количество строк в матрице от 1 до 1000');
    readln(vvodStrok);
  until (0 < vvodStrok) and (vvodStrok <= 1000);
  repeat
    writeln('Введите количество столбцов в матрице от 1 до 1000');
    readln(vvodStolb);
  until (0 < vvodStolb) and (vvodStolb <= 1000);
  
  writeln('Выберите способ заполнения ввода A- автоматически, R- ручной');
  readln(vvodProv);
  
  if(vvodProv = 'A') then
  begin
    for i := 1 to vvodStrok do
    begin
      for j := 1 to vvodStolb do
      begin
        masDan[i, j] := random;
        write(masDan[i, j]:5:2, ' ');
      end;
      writeln();
    end;
  end
  else if (vvodProv = 'R') then
  begin
    writeln('вводите значения');
    for i := 1 to vvodStrok do
    begin
      for j := 1 to vvodStolb do
      begin
        read(masPol[i, j]);
      end;
      writeln();
    end;

  //суммирование
  
  
  
  //ввывод новой матрицы
  writeln();
  for i := 1 to vvodStrok do
  begin
    for j := 1 to vvodStolb do
    begin
      write(masPol[i, j]:5:2, ' ');
    end;  
    writeln();
  end;  
  
end.

[Serge_Bliznykov]

program p2;

{uses
  crt;}

const
  KOL_STROK = 1000;
  KOL_STOLB = 1000;

var
  vvodStrok, vvodStolb: word;
  masDan: array[1..KOL_STROK, 1..KOL_STOLB] of real;
  masPol: array[1..KOL_STROK, 1..KOL_STOLB] of real;
  sum: real;
  vvodProv: char;
  i, j, k, m: byte;

begin
  repeat
    writeln('Введите количество строк в матрице от 1 до 1000');
    readln(vvodStrok);
  until (0 < vvodStrok) and (vvodStrok <= 1000);
  repeat
    writeln('Введите количество столбцов в матрице от 1 до 1000');
    readln(vvodStolb);
  until (0 < vvodStolb) and (vvodStolb <= 1000);
  
  repeat
    writeln('Выберите способ заполнения ввода A- автоматически, R- ручной');
    readln(vvodProv);
  until vvodProv in ['A', 'R'];
  
  if(vvodProv = 'A') then
  begin
    for i := 1 to vvodStrok do
    begin
      for j := 1 to vvodStolb do
      begin
        masDan[i, j] := random;
        write(masDan[i, j]:5:2, ' ');
       end;
      writeln();
    end;
  end
  else if (vvodProv = 'R') then
  begin
    writeln('вводите значения');
    for i := 1 to vvodStrok do
    begin
      for j := 1 to vvodStolb do
      begin
        // read(masDan[i, j]); // закомментировал для отладки!
        masDan[i,j]:= (i-1)*3+j;
        Write(masDan[i,j]:3);
      end;
      writeln();
    end;
  end;  

  //суммирование
  for i := 1 to vvodStrok do
    for j := 1 to vvodStolb do 
    begin
      masPol[i,j] := 0;
      for k:=1 to i do
        for m:=j to vvodStrok do
           masPol[i,j] := masPol[i,j] + masDan[k,m];
     end;  
  
  
  //вывод новой матрицы
  writeln();
  for i := 1 to vvodStrok do
  begin
    for j := 1 to vvodStolb do
    begin
      write(masPol[i, j]:5:2, ' ');
    end;  
    writeln();
  end;  
  
end.

[users1]

Спасибо, я не думал что для суммы отдельные циклы нужны

[Serge_Bliznykov]

пожалуйста.
ну а как же без них?