Question

В каждой строке двумерной матрицы (n, m), состоящей их произвольных чисел, вычислить количество, сумму и среднее арифметическое отрицательных элементов

Answer 1

program asd;
Const n=4; 
   m=4;
var A:array[1..n,1..m] of integer;
i,j,k,s:integer;
 sr:real;
BEGIN 
For i:=1 to n do 
  begin 
 for j:=1 to m do  
   begin   
  A[i,j]:=5-Random(15);
     Write(A[i,j]:4); 
 end;
 Writeln();
 end;
 For i:=1 to n do 
  begin 
s:=0; k:=0; 
  for j:=1 to m do  
  begin     
      If A[i,j]<0 then 
      begin   
 s:=s+A[i,j];   
 inc(k);   
 sr:=s/k;   
  end;  
   end;   
 Writeln('Строка: ',i,'; Сумма: ',s,'; Количество: ',k,'; Ср. ариф.: ',sr:2:2); 
   end;     
   END.