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

[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

[otherside]

а вообще, поиск и ещё раз поиск, не будь ты девушкой... )
upd
код изменен(добавлена проверка n<>1)

ну что ж сделать если я девушка, а поиск ничего не дал

Добавлено через 2 мин.
что-то я ничего не поняла в этой программе

[compiler]

ну что ж сделать если я девушка, а поиск ничего не дал

задач таких решалось - не перечесть...

что-то я ничего не поняла в этой программе

ну вот а я хотел писать версию "потяжелей". сейчас добавлю комменты...



Добавлено через 11 мин.
так ясней?
да и вот пройдись по Массивы. Матрицы. Типичные задачи. решения: МАТРИЦЫ, МАССИВЫ. задачи

[otherside]

задач таких решалось - не перечесть...
ну вот а я хотел писать версию "потяжелей". сейчас добавлю комменты...
Добавлено через 11 мин.
так ясней?
да и вот пройдись по Массивы. Матрицы. Типичные задачи. решения: МАТРИЦЫ, МАССИВЫ. задачи

я вот если честно не могу представить что должно получится в ответе?