1.
procedure pr(a:longint; var s:real);
var b,sum,k:integer;
begin
a:=abs(a);
s:=0; k:=0;
while a<>0 do 
begin
 b:=a mod 10;
 if b mod 2<>0 then
   begin 
   sum:=sum+b; k:=k+1;
   end;
 a:=a div 10;
end;
if k<>0 then s:=sum/k else s:=0;
end;
var sr:real;
begin
pr(123456789,sr);
writeln('s1=',sr);
end.
2.
const m=5;n=6;
type ar=array[1..m,1..n] of integer;
procedure input(var a:ar);
var i,j : integer;
begin
for i:=1 to m do
  for j:=1 to n do
   a[i,j]:=random(20)-10;
end; 
procedure out(var a:ar);
var i,j : integer;
begin
for i:=1 to m do
 begin
  for j:=1 to n do write(a[i,j]:4); 
  writeln;
 end;
end; 
procedure p1(var a:ar;k:byte);
var i,j : integer;
begin
for j:=1 to n do 
 for i:=k to m-1 do a[i,j]:=a[i+1,j]; 
for j:=1 to n do a[m,j]:=0;
end; 
procedure p2(var a:ar;l:byte);
var i,j : integer;
begin
for i:=1 to m do 
 for j:=l to n-1 do a[i,j]:=a[i,j+1]; 
for i:=1 to m do a[i,n]:=0;
end; 

var a : ar; k,l : integer;
begin
Randomize;
write('k=');readln(k); 
write('l=');readln(l); 
input(a);
out(a);
p1(a,k);
writeln('Полученный массив:');
out(a);
writeln;
p2(a,l);
writeln('Полученный массив:');
out(a);
end.