Developing.ru

program dj;
var i,j:byte;
summa:real;
mat: array[1..4,1..6] of real;
a:array [1..6] of real;
begin
for i:=1 to 4 do
begin
Summa:=0;
a[i]:=0;
for j:=1 to 6 do
begin
mat[i,j] := random(10)-5;
write(mat[i,j]:6:1);
summa:= summa + mat[i,j];
a[j] := a[j] + mat[i,j]
end;
writeln (' |', summa:8:1);
end;
end.