Массивы

Program obratnaya_matrica;
Uses crt;
Var i,j,t:integer;
    s:real;
    Mas:array [1..20] of integer;
begin
 clrscr;
 s:=0;
 writeln ('Vvedite elementi massiva: ');
 for i:=1 to 20 do
  read(Mas[i]);
 writeln;
 t:=20;
 for i:=1 to t do
  if Mas[i]=0 then if s<2 then s:=s+1
   else
    begin
     writeln('Mas[',i,']= ',Mas[i]);
     s:=0;
     for j:=i+1 to 20 do
      s:=s+Mas[j];
     s:=s/(20-i);
     writeln('Srednee arefmeticheskoe= ',s);
     t:=i;
    end;
  readkey;
end.

Uses
 CRT;
Const
 n=20;
Var
 a:array [1..n] of integer;
 i,kol,ind,kol2:byte;
 sum:real;
begin
ClrScr;
randomize;
for i:=1 to n do
begin
 a[i]:=random(5);
 write(a[i]:3);
end;
writeln;
kol:=0;
ind:=0;
for i:=1 to n do
if a[i]=0 then
begin
 inc(kol);
  if kol=3 then
   ind:=i;
end;
writeln;
if ind=n then
write('0 ïîñëåäíèé')
else
if ind<>0 then
begin
kol2:=0;
sum:=0;
for i:=ind+1 to n do
begin
 write(a[i]:3);
 sum:=sum+a[i];
 inc(kol2);
end;
writeln;
write('SR:=',sum/kol2)
end
 else
  write('Â ìàññèâå íåò 3-õ íóëåé!!!');
readkey
end.