Проггамма паскаль Найти среднее арифметическое не равных нулю элементов масивные X(n,m) и...

Question

Проггамма паскаль Найти среднее арифметическое не равных нулю элементов масивные X(n,m) и подсчитать количество элементов с неподлжительными значениями

Answer 1

Program abc;
Const 
n=3; 
m=3;
Var  a:array[1..n,1..m] of integer; 
b,y,i,j,sum:integer; 
srd:real; 
Begin 
Writeln('Введите числа массива: ');   
For i:=1 to n do     
For j:=1 to m do     
Begin       
Write('a[',i,',',j,']= ');       
 Readln(a[i,j]);       
if a[i,j]>0 then          
begin            
sum:=sum+a[i,j];           
inc(b);         
 end        
else         
If a[i,j]<0 then            <br>Inc(y);       
End;     
If sum>0 then     
begin      
srd:=sum/b;     
Writeln('Среднее =',srd);     
end    
 else     
Writeln('Нет положительных членов массива');     
If y>0 then     
begin      
Writeln('Количество отрицательных элементов =',y);     
end      
else     
Writeln('Нет отрицательных членов массива');
End.