Исходные данные задать самостоятельно генератором случайных чисел random.
Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов.
Найти среднее арифметическое элементов каждого из четных столбцов этой матрицы

что вы уже сделали?

program ;
var
a:array[n,n] of integer; я не понимаю как написать размер матрицы
m,k,n,i,j,m2,n2,S:integer;
begin
randomize;
write ('введите n= ');
read(n);
write ('введите m= ');
read(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)-10;
writeln('матрица а=');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln( );
end;
ну и как дальше делать (IMG:style_emoticons/default/sad.gif)