Найти среднее геометрическое положительных элементов в последней строке матрицы - Turbo Pascal

Формулировка задачи:

Ребят, помогите пожалуйста решить пару задач. Напишите хотя бы основную часть.Заранее огромное спасибо 1)Дан двумерный массив A(n ×m) . Найти среднее геометрическое положительных элементов в последней строке матрицы.

Код к задаче: «Найти среднее геометрическое положительных элементов в последней строке матрицы - Turbo Pascal»

textual
  for j:=1 to m do
    if a[n,j]>0 then begin
      inc(k); // Г±Г·ГЁГІГ*ГҐГ¬ ïîëîæèòåëüГ*ûå
      p:=p*a[n,j]; // Г±Г·ГЁГІГ*ГҐГ¬ ïðîèçâåäåГ*ГЁГҐ
    end;
  Avr:=exp(ln(p)/k); // çäåñü Avr - ñðåäГ*ГҐГҐ ãåîìåòðè÷åñêîå

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы