Вычислить среднее арифметическое положительных чисел, лежащих выше побочной диагонали

@arianna17 · Регистрация: 30.09.2015

Author24 — интернет-сервис помощи студентам

Вычислить среднее арифметическое положительных чисел, лежащих выше побочной диагонали.

@immortal21 · 04.12.2015, 21:03

Pascal

k:=n;
for j:=n downto 1 do begin {n- количество строк}
  k:=k-1;
  for i:=k to n do begin
    sum:=sum+m[i,j];
  end;
end.

@Cyborg Drone · 09.12.2015, 12:36

immortal21, неверно. Основная часть программы для квадратной матрицы может выглядеть, например, так:

Pascal

k := 0; {k - количество найденных положительных элементов}
for i := 1 to n - 1 do {n - размерность матрицы}
  for j := 1 to n - i do
    if m[i, j] > 0
      then begin
        sum := sum + m[i, j];
        inc(k)
      end;
if k = 0
  then write('Положительные числа выше побочной диагонали не найдены.')
  else write('Среднее арифметическое положительных чисел выше побочной диагонали = ', sum / k;

@arianna17 0 / 0 / 0 Регистрация: 30.09.2015 Сообщений: 5
		1
	Вычислить среднее арифметическое положительных чисел, лежащих выше побочной диагонали 04.12.2015, 18:30. Показов 1266. Ответов 2 Метки нет (Все метки) Вычислить среднее арифметическое положительных чисел, лежащих выше побочной диагонали. 0

	09.12.2015, 12:36

Вычислить среднее арифметическое положительных чисел, лежащих выше побочной диагонали

Решение