Задача.

[Christianka]

Дана Матрица А(n,n). Сложить каждую строку с предыдущей. Задачу нужно сделать на Делфи

[Zer0]

const n=10;
var a:array[1..n,1..n] of integer; i,j:integer;
begin
randomize;
writeln('Исходный массив: ');
for i:=1 to n do begin
 for j:=1 to n do begin
   a[i,j]:=random(100);
   write (a[i,j]:3);
  end;
 writeln;
end;

writeln;
writeln ('Итоговый массив:');
for i:=1 to n do begin
 for j:=1 to n do begin
   if i>1 then a[i,j]:=a[i,j]+a[i-1,j];
   write (a[i,j]:3);
  end;
 writeln;
end;
readln;
end.

[Christianka]

спасибо за помощь

[Zer0]

для неизвестного анонимуса - можно было начать цикл с двойки, но для этого будет нужен третий цикл для вывода первой строки, минусовать за это не обязательно, можно было предложить свое решение