Question

Помогите, пожалуйста!
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная

Answer 1

Pascal


 const     n = 9;
 var
  i,min,b : integer;
  a : array [1..n] of integer;
 begin    
  for i := 1 to n do
    a[i] := 10 + random (141); 

         min := 151;
   for i := 1 to n do 
   begin     if a[i] < min then
      begin   
   if a[i] div 100 > 0 then   
     b := ((a[i] div 10) - (a[i] mod 10)) div 10 
       else          b := a[i] div 10;   
    if b mod 2 = 1 then   
     min := a[i];      
      end;   
   end;   
   if min = 151 then 
  writeln ('not found')   
  else      writeln (min); 
 end.