В двумерном массиве найти среднеарифметическое положительных элемен-тов каждой строки. Язык Pascal.

[Pa s]

В двумерном массиве найти среднеарифметическое положительных элемен-тов каждой строки. Язык Pascal.


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Alt_Shift]

1. какой язык программирования.
2. Где ваш собственный неработающий код?

[Pa s]

1.Паскаль
2. кода нет.

[Alt_Shift]

Сообщение от Pa s

2. кода нет.

деньга есть?)

[Pa s]

Да. сколько нужно?

[Азам]

ВОТ КОД

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   i,j,n,m:byte;
   a:array [1..100,1..100] of integer;
   sum,sum1:real;
begin
randomize;
sum:=0;

 write('n='); readln(n);
 write('m='); readln(m);
 for i:= 1 to n do begin
 for j:= 1 to m do begin
    a[i,j]:= random(15)-5;
write(a[i,j]:3);
 end;
   writeln;

 end;
 for i:= 1 to n do BEGIN
 sum:=0;
 for j:= 1 to n do begin
      if a[i,j]>0 then
      sum:=sum+a[i,j];
      sum1:=sum/n
      end;
 writeln('  sum ',i,'= ',sum1:2:2);
      end;

 readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Азам, очень хорошо!

но есть недочёты!
1) в цикле вычисления вы j "крутите" до n - а надо до m

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

 for i:= 1 to n do begin
    sum := 0;
    kolPositive := 0;
    for j:= 1 to m do
      if a[i,j]>0 then begin
          sum:=sum+a[i,j];
          inc(kolPositive)
      end;

      if kolPositive=0 then 
          WriteLn('No positive elements at Line ', i)
      else
          writeln('  sum at line ', i, ' = ',(sum/kolPositive):2:2);
 end;

p.s. иницилизация суммы вначале программы не нужна - мы же в цикле её всё равно обнуляем.

[Азам]

так это на скоряк писал))))

[Азам]

забыл исправить)))