Подпрограммы Опции

[Катрин]

Ребят, подскажите, пожалуйста, как решить задачку: Если заданная квадратная целочисленная матрица является треугольной(эл-ты выше главной диагонали = 0) вычислить ее среднее арифметическое, иначе определить, сколько элементов, лежащих выше главной диагонали не равны 0. Заранее спасибо.

[Altair]

ввод и работа с матрицами

число нулевых элементов выше главной диагонали.

s:=0;
For i:=1 To n Do For j:=i To n Do  if a[i,j] = 0 then inc(s);

проверка явл. ли матрица верхнетреугольной..

s:=0;
For i:=1 To n Do
 For j:=n-i+1 To n Do s:=s+a[i, j];

Если после прогона s=0 то ДА...

p.s. все взято из той ссылочки что я привел..

[klem4]

Как работать с разными частями матрицы. FAQ

В следующий раз сначала поиск и FAQ

Altair, опередил ...

Сообщение отредактировано: klem4 - 9.02.2006 23:54

[volvo]

Если кому понадобится - вот решение за один проход по матрице:

const
  n = 5;
  amount = ((sqr(n) - n) div 2) + n;

type
  mx = array[1 .. n, 1 .. n] of integer;

function get_s(const a: mx; var is_triangle: boolean): real;
var
  s: real;
  i, j, count: integer;
begin
  s := 0; count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (j > i) then begin
        if a[i, j] > 0 then inc(count)
      end
      else s := s + a[i, j];

  is_triangle := (count = 0);
  if is_triangle then s := s / amount
  else s := count;

  get_s := s;
end;

const
  a: mx =
  (
   (1, 0, 0, 0, 0),
   (1, 2, 0, 0, 0),
   (1, 5, 6, 0, 0),
   (1, 0, 5, 0, 0),
   (1, 0, 4, 4, 0)
  );

var
  is_T: boolean;
  sum: real;

begin
  sum := get_s(a, is_T);
  if is_T then writeln('triangle: Average = ', sum:10:5)
  else writeln('non-triange: Count = ', sum:3:0);
end.