Var
A:array[1..50,1..20] of integer;
i,j,P,O,Pk,Ok:integer;

Begin

For i := 1 to 50 do //заполнение и вывод на экран
Begin
 For j:= 1 to 20 do
 Begin
  A[i,j]:=random(101)-50;
 Write(A[i,j],' ')
 End;
WriteLn
End;

For i := 1 to 50 do
 For j:= 1 to 20 do
  Begin
  if A[i,j]>0 then Begin P:=P+A[i,j]; Pk:=Pk+1 End;
  if A[i,j]<0 then Begin O:=O+A[i,j]; Ok:=Ok+1 End;
  End;
WriteLn('Среднее арифметическое положительных элементов = ',P/Pk);
WriteLn('Среднее арифметическое отрицательных элементов = ',O/Ok);
End.