Найти среднее арифметическое отрицательных элементов, лежащих в нижней треугольной матрице массива А(m,m)

[bratello41]

сижу на экзамене =/

Найти среднее арифметическое отрицательных элементов, лежащих в нижней треугольной матрице массива А(m,m).

[Stilet]

for i:=1 to m do 
 for j:=m-i=1 to m do
  if a[i,j]<0 then begin summ:=summ+a[i,j];inc(count);end;
Summ:=summ/count;

Count - integer
Summ - Double;

[_-Re@l-_]

Summ - Double;

Так ведь использование Double возможно лишь при наличии арифметического сопроцессора....

[bratello41]

можно полностью 20 мин до конца экзмена осталось((

[ROMA2PVT]

Ну думаю вот так:

uses
  CRT;

var
  mas: array[1..20, 1..20] of integer;
  i, j, n, sum, kol: integer;
  sr: real;

begin
  clrscr;
  write('Введите N:=');
  readln(n);
  writeln('Исходный массив: ');
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mas[i, j] := random(10) - 5;
      write(mas[i, j]:2, ' ');
    end;
    writeln;
  end;
  writeln;
  sum := 0;
  kol := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      if (mas[i, j] < 0) and (j <= i) then
      begin
        sum := sum + mas[i, j];
        inc(kol);
        {write(mas[i,j]:2,' ');}
      end;
    {writeln;}
  end;
  writeln;
  sr := sum / kol;
  writeln(sr:1:3);
  readkey;
end.

[Grag]

А вот так не проще ли

Sum:=0;
Count:=0;
for i:=1 to m do
  for j:=1 to i do
    if A[i,j]<0 then
      begin
        Inc(Count);
        Sum:=Sum+A[i,j] 
      end;
Sr:=Sum/Count;

[bratello41]

спасибо.....сейчас попробую задачу ROMA2PVT ( работает или нет )...просто экзамен сегодня был...и не знаю...буду надеяться что твоя задача работает)) ибо придется пересдавать =\\\\\

[bratello41]

копец.............=\ спасибо задача работает....только я забыл основноееее =\ её надо было делать с функцией или с процедурой =\\\\\ буду надеяться что 3 поставит (

[ROMA2PVT]

да не за что.Ты бы для лучшего понимания взял да и сделал с функцией и процедурой (чтобы не завалить если будет пересдача).

[bratello41]

на пересдаче и задача другая будет =\

а ты может ту задачу которую ты мне писал написать через функцию или процедуру..........мож завтра попрошу дописать =\ ( скажу...типа ...забыл :D ) =\