Program bukvaa;
uses crt;
const m=9;
n=10;
var i,j:integer;
s:real;
a:array[1..m,1..n] of real;
begin
clrscr;
writeln('vvedite kolichestvo stolbzov');
writeln;
for i:=1 to n do begin
s:=0;
for j:=1 to m do
s:=s+a[m,n];
s:=s/m;
writeln('srednee arifmeticheskoe elementov ',i,' stolbza',s);
readln
end;
end.
вроде написал но не пойму почему не работает как надо((