Про 2d массив, помогите Опции

[Spell]

Создал рандомный двухмерный массив. Теперь надо посчитать среднее арифметическое в каждом столбце и вывести на экран. Как делать чет не догоняю..кто может помогите плз

Сообщение отредактировано: Spell - 5.10.2006 15:46

[volvo]

Создал рандомный двухмерны массив

Ну, это смотря как создал. Можно же матрицу создать как массив строк, а можно - как массив столбцов (что в твоем случае более эффективно). Если создавал как
Array[1 .. n, 1 .. n] of ...,
то ходи в цикле:

for i := 1 to n do begin { цикл по столбцам }
  s := 0;
  for j := 1 to n do s := s + a[j, i];
  writeln('Среднее арифметическое для столбца №', i, ' = ', s/n);
end;