program massiv;
var a:array [1..4,1..7] of integer;
i,j,k,l:integer;
s:real;
begin
writeln('Massivti engiz');
for i:=1 to 4 do
for j:=1 to 7 do
begin
readln ( a [ i , j ]);
end;
s:=0;k:=0;l:=0;
for i:=1 to 4 do
for j:=1 to 7 do
begin
if a[i,j]>0 then
begin
s:=s+a[i,j];
l:=l+1;
end;
if a[i,j]=0 then k:=k+1;
end;
writeln('Arifmetikalyk orta-',s/l);
writeln('On elementter sany-',k);
end.
