Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [QBasic|Pascal] двумерные массивы

Автор: PBJack 15.5.2008, 21:33

Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и М столбцов. Найти наибольшее значение среди средних зна-чений для каждой строки матрицы.
кубэйсик или паскаль - без разницы. я чайник, поэтому пожалуйста без сокращений))) спасиб за помощь

Автор: Wedafl 16.5.2008, 13:55

Цитата

Найти наибольшее значение среди средних зна-чений для каждой строки матрицы.

Уточните задачу, данная формулировка неполна и двусмысленна.

Как вариант, найти среднее арифметическое для каждой строки матрицы, потом из множества средних найти максимальное.

Автор: Akina 16.5.2008, 14:41

Код


Function MaxAvgArr(Arr() as double) as double
dim i as long
dim j as long
dim s as double
for i = lbound(arr,2) to ubound(arr,2)
 s=0
  for j = lbound(arr,1) to ubound(arr,1)
  s=s+arr(i,j)
  next j
 if (i = lbound(arr,2)) or (s > MaxAvgArr) then s = MaxAvgArr
next i
MaxAvgArr = MaxAvgArr / (ubound(arr,1) - lbound(arr,1) + 1)
end function