zad3_dvumern

program zad3;
const n=3;
var a: array[1..n,1..n] of real; b: array[1..n] of real; i,j:integer;
begin
writeln('Двумерный массив: ');
for i:=1 to n do
for j:=1 to n do begin
a[i][j]:=random(19)-9;
write(a[i][j]:3);
if j=n then writeln();
end;
for i:=1 to n do
for j:=1 to n do
b[i]:=b[i]+a[i][j];
write('Линейный массив: ');
for i:=1 to n do
write(b[i]/n:3:2,' ');
end.