Постоянно включается биос сам по себе​

Sub Rab()
Dim A(10, 10)
X0 = 6
h = 0.25
Max = -1000
x = X0
For i = 1 To 10    
       For k = 1 To 10        
              A(i, k) = Cos(x ^ 0.25 - 0.5 * x ^ 0.5 + 0.25 * x ^ 0.75)        
               If Max < A(i, k) Then            
                        Max = A(i, k)
                        im = i
                        km = k
                End If
                x = x + h
    Next k
Next i
' Вывод матрицы
For i = 1 To 10    
       For k = 1 To 10        
            Cells(i, k) = Int((0.0005 + A(i, k)) * 1000) / 1000  'Округление А до 3 знака    
        Next k
Next i
' вывод обрезаной матрицы
For i = 1 To 10    
       For k = 1 To 10        
             If i = im Then        
             Else             
                  If k = km  Then
                  Else
                      Cells(i + 12, k) = Int((0.0005 + A(i, k)) * 1000) / 1000
                  End If
             End If
        Next k
Next i
End Sub

1.program z;
var a:array [1..10] of integer; i,t:integer; s:real;
begin
for i:=1 to 10 do
begin
a[i]:=random(1,100);
write(a[i]:4);
if (odd(i)) and (odd(a[i])) then
begin
s:=s+a[i];
t:=t+1;
end;
end;
writeln;
write('Cреднее арифметическое = ',s/t);
end.
2.program z;
var a:array[1..10] of integer; max,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(1,100);
write(a[i]:4);
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Измененный массив');
for i:=1 to 10 do
begin
if not(odd(a[i])) then a[i]:=max;
write(a[i]:4);
end;
end.