const n=4;
var a : array[1..n,1..n] of integer; 
    x : array[1..n] of real;
    sum,k,i,j : integer;
begin
Randomize; 
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
   a[i,j]:=random(20)-10;
   write(a[i,j]:4); 
  end;
  writeln;
  end; 
for j:=1 to n do begin
  sum:=0; k:=0;
  for i:=1 to n do
   if a[i,j]mod 2=0 then begin sum:=sum+a[i,j]; k:=k+1; end;
  if k<>0 then x[j]:=sum/k else x[j]:=0;
  end;
writeln('Полученный массив:');
for i:=1 to n do  write(x[i]:7:2); 
writeln;
end.