Pardon tohle byl chybný program. Mám uložené různé varianty kdybych se potřeboval vrátit :D
Zde je upravený:
type
posloupnost=array[1..400] of real;
procedure soucty(var n:integer;a,s:array of real);
var
i,j:integer;
begin
s[0]:=0;
for i:=1 to n do
for j:=i-1 to n do
s[i]:=round(s[j]+a[i])
end;
var
a,s:array[1..20,1..20] of real;
i,j,n:integer;
begin
writeln('Zadej rad matice:');
readln(n);
writeln('Zadej prvky matice:');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
writeln;
writeln('zadana matice:');
writeln;
for i:=1 to n do
for j:=1 to n do begin
write(a[i,j]:7:2);
writeln;
readln
end;
readln;
for i:=1 to n do
soucty(n,a,s);
end;
for i:=1 to n do
for j:=1 to n do
write(a[i,j]);
end;
end.