Muszę stworzyć macierz kwadratową oraz sumę wartości kolejnych wierszy, z macierzą jako taką nie mam problemu ale z sumą owszem. Proszę o pomoc.
begin
dana:=inputbox('podaj n','n=','1');
n:=strtoint(dana);
for i:=1 to n do
for j:=1 to n do
begin
dana:=inputbox('podaj a ['+inttostr(i)+','+inttostr(j)+']','?','1');
a[i,j]:=strtoint(dana);
end;
for i:=1 to n do
begin
linia:='';
for j:=1 to n do
linia:=linia+inttostr(a[i,j])+' ';
memo1.Lines.add(linia) ;
end;
end;