если нужен столбец то позволю поправить код
shrek=)
Код:
var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[i,1]; // переставляем счетчик на столбец
writeln (s);
readln
end.
П.С могу и ошибаться )