Дана квадратная матрица порядка N.В матрице вычислить среднее арифметическое...

Question

Дана квадратная матрица порядка N.В матрице вычислить среднее арифметическое положительных элементов,стоящих на главной диагонали.

Comments

язык какой?

---

паскаль или лазарус

Answer 1

Var i,j,n:integer;
    s:real;
    a:array[1..100,1..100] of integer;
begin
 readln(n);
 for i:=1 to n do
  for j:=1 to n do 
 begin 
  write('A[',i,',',j,']=');
   readln(a[i,j]);
  end;
 for i:=1 to n do
 s:=s+a[i,i];
 s:=s/n;
 writeln(s);
end.   

Comments

Написала на Паскале

Answer 2

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');<br>end.

Comments

А счетчик считает количество положительных на главной диагонали

---

Дак вопрос мой поставлен так, для чего нам знать количество положительных

---

Но нужно найти среднее только пожительных

---

А не всех подряд на главной диагонали

---

Вот, хороший ответ, я не заметил, извиняюсь

---

Ну, слава богу, а то я уже начала расстриваться )

---

Да, не внимателен я )

---

И я, поэтому понимаю

---

Надеюсь, вопрос исчерпан

---

Да, конечно )