лабораторная работа / лаба 6

program sum_strok;
var i,j,m,n,s: byte;
a: array[1..5,1..5] of integer;
b: array[1..5] of integer;
begin
writeln('Введите массив[m, n]')
Read(m,n);
for i:=1 to n do
for j:=1 to m do;
begin
wrrite ('a[' ,i, ',' ,j, '];
readln (a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 no n go
begin
for j:=1 no m do
write (a[i,j],' ';);
writeln:
end:
for j:=1 to m do
begin
S:=0;
for i:=1 to n do S:=S+a[i,j];
b[j]:=S/m;
end;
for i:=1 to m do
write (b[i]:6:2,' ');
end.