Массив. задачи дан массив А( N,M) найти сумму отрицательных элементов массива. значение...

Question

Массив. задачи дан массив А( N,M) найти сумму отрицательных элементов массива. значение M,N равно 8

Answer 1

// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=(8,8);
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.Rows.SelectMany(x->x).Where(x->x<0).Sum;<br>  Writeln('Сумма отрицательных элементов ',s)
end.

Пример
*** Исходный массив ***
  51  57  75  78 -45   5 -36  37
  25  44  25  81 -23  77 -86 -87
  11   3  -6 -87 -95 -70 -54 -39
 -99  98  58  94  22  11  32  40
  43  46  44  51 -31   5  92  46
 -87  67   5   7 -80  96 -82  50
 -77  41  64  21 -94 -92 -31  21
  12  14  78 -43  47 -30 -84 -85
--------------------------------
Сумма отрицательных элементов -1543

Answer 2

#includeusing namespace std;
int main(){int a[8][8];for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ cin>>a[i][j]; } }int sum=0;for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ if(a[i][j]<0) sum+=a[i][j]; }}cout<<"Sum = "<<sum<<endl;}

Comments

#includeusing namespace std;
int main(){int a[8][8];for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ cin>>a[i][j]; } }int sum=0;for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ if(a[i][j]<0) sum+=a[i][j]; }} cout<<"Sum = "<<sum<<endl;}

---

#includeusing namespace std;
int main(){int a[8][8];for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ cin>>a[i][j]; } } int sum=0;for(int i=0;i<8;i++){ for(int j=0;j<8;j++){ if(a[i][j]<0) sum+=a[i][j]; } } cout<<"Sum = "<<sum<<endl;}

---

Скорее всего проблема в браузере , но он просто не даёт мне нормально отправить текст .