организация циклов в паскале, обработка матриц Опции

[otherside]

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

[compiler]

сорри за задержку

var
   a    : array[1..10, 1..10] of real;{наш массив, максимальный размер 10*10}
   i, j	: integer;
   sum	: real;
   n    : integer;
begin
   readln(n);
   if n = 1 then writeln('Чётных элементов не найденно')
   else begin   
      randomize;   
      {запонение СЧ}
      for i := 1 to n do
	 for j:=1 to n do
	    a[i, j] := round(random * 100)/10; 
      {печать}
      for i := 1 to n do begin
	 for j:=1 to n do
	    write(a[i, j]:8:2);
	 writeln();
      end;

      writeln();
      sum:=0;   
      for j:=1 to n div 2 do begin {столбцы, четных в два раза меньше}
	 for i := 1 to n  do      {строки}
	     sum := sum + ( a[i, j*2] );
	 writeln(sum/(n div 2 * n) :8:2);
	 sum:=0;
      end;
   end;   
end.

upd
обновил комменты

Сообщение отредактировано: compiler - 7.05.2008 22:29