Задача по массивам на нахождение среднедневной температуры

program temper;
uses crt;
var t:array[1..31]of integer;
     i,k:integer;
begin
 clrscr;
 randomize;
 k:=0;
 for i:=1 to 31 do t[i]:=random(20)+10; {заполнение случайными числами от 10 до 29}
 for i:=1 to 31 do if t[i]<20 then k:=k+1;
 writeln(k);
 readln;
end.

program srednee;
uses crt;
var m:array[1..10]of integer;
s:real; i,k:integer;
begin
 k:=0;
 clrscr;
 for i:=1 to 10 do
 begin
  write('Vvedite ',i,' element: ');
  readln(m[i]);
  if m[i] mod 2=1 then
  begin
   s:=s+m[i];
   k:=k+1;
  end;
 end;
 
 if k=0 then writeln('V massive net nechetnih chisel') else
 begin
  s:=s/k;
  writeln('S=',s:0:4);
 end;
readln;
end.

program jj;
uses crt;
const dx=0.5;
var m:real;
begin
clrscr;
m:=-2;
writeln('X      Y');
while m<=2 do
begin
 writeln(m:0:1,'     ',cos(sqr(m+2)):0:6);
 m:=m+dx;
end;
readln;
end.

program xxx;
var
 a:array[1..10]of integer;
 i:integer;
begin
 for i:=1 to 10 do
  a[i]:=a[i]*a[i];
 for i:=1 to 10 do write(a[i]:4);
 readln;
end.

type
massiv=array[1..10] of integer;
var
a:massiv;
i,kol:integer;
begin
for i:=1 to 10 do
 begin
  write('i=');
  readln(a[i]);
 end;
kol:=0;
 for i:=1 to 10 do
 begin
 if Odd(i) then kol:=kol+1;
 end;
writeln('кол-во нечётных элементов=',kol);
readln;
end.

program mmm;
uses crt;
var a:array[1..4,1..4]of integer;
   i,j,p:longint;
begin
 clrscr;
 p:=1;
 for i:=1 to 4 do
 for j:=1 to 4 do
 begin
 a[i,j]:=random(10);
 if a[i,j] mod 2=0 then p:=p*a[i,j];
 end;
 
 for i:=1 to 4 do a[i,4]:=p;
 readln;
end.