Массив из 15 элементов задан датчиком случайных чисел на интервале [0;15] вывести на экран элементы массива имеющие чётные порядковые номера Паскаль

begin

 var a := ArrRandomInteger(15, 0, 15);

 a.Where(x->not Odd(x)).Println;

end.

# Код на ruby 2.2.3p173
def automate(n)
    a = n / 1000
    b = n / 100 % 10
    c = n / 10 % 10
    d = n % 10
    t = [a*b, c*d]
    return (t.max.to_s + t.min.to_s).to_i
end

def zadanie()
    for i in 1000..9999
        t = automate(i)
        p [t, i] if t == 174
    end
end
# Примеры применения
zadanie()

ответ - нет таких цифр

Аналитическое решение
174 можно разложить на 1 + 74 и 17 + 4
по правилу 2 это только 17 + 4
17 - произведение двух чисел, но 17 простое и произведение только 17 и 1. 17 не может быть одной цифрой
Значит вариант 174 невозможен при таких правилах

Class ArrayMultiplication{
 public static void main(String args[]){
  String fileName = "Array.txt", aNum = ""; int nArray[] = new int[201], iChar; nArray[0] = 0; long rMulti;
  java.io.FileReader iFile = null; java.io.FileWriter oFile = null;
  try{
   iFile = new java.io.FileReader(fileName);
   while((iChar = iFile.read())!=-1)
    if(iChar!=' ')aNum+=(char)iChar;
    else {nArray[++nArray[0]] = new Integer(aNum);aNum="";}
   if(!aNum.equals(""))nArray[++nArray[0]] = new Integer(aNum);
   oFile = new java.io.FileWriter(fileName);
   for(rMulti = 1; nArray[0]>0; nArray[0]--)rMulti*=nArray[nArray[0]];
   oFile.write(rMulti+"");
  }catch(java.io.FileNotFoundException fnfe){
   System.out.println("Файл не был найден!");
  }catch(java.io.IOException ioe){
   System.out.println("Ошибка ввода/вывода в файл!");
  }finally{
   try{
 iFile.close(); oFile.close();
   }catch(java.io.IOException ioe){
 System.out.println("Ошибка закрытия файла ввода/вывода!");
   }
  }
 }
}