Версия для печати темы

Автор: otherside 7.05.2008 22:39

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

Автор: compiler 7.05.2008 23:26

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

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
обновил комменты

Автор: otherside 7.05.2008 23:35

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

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

Автор: compiler 7.05.2008 23:42

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



Добавлено через 11 мин.
так ясней?
да и вот пройдись по http://forum.pascal.net.ru/index.php?showtopic=2694 http://forum.pascal.net.ru/index.php?showtopic=1212

Автор: otherside 8.05.2008 0:01

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