Var a:array[1..5,1..7] of integer;
    i,j,kolpol,kolotr:integer;
    respol,resotr:real;
begin
for j:=1 to 7 do begin
  for i:=1 to 5 do begin
    a[i,j]:=random(-50,50);
    write(a[i,j]:4);
  end;
  writeln();
end;
for i:=1 to 5 do begin
  respol:=0;
  resotr:=0;
  kolpol:=0;
  kolotr:=0;
  for j:=1 to 7 do begin
    if a[i,j]>0 then begin
      respol+=a[i,j];
      kolpol+=1;
    end
    else if a[i,j]<0 then begin
       resotr+=a[i,j];
       kolotr+=1;
     end;
  end;
  writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
  writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.