Дан целочисленный массив a размера n. вывести порядковый номер последнего из тех его элементов ak, которые удовлетворяют двойному неравенству a1 < ak < a10. если таких элементов нет, то вывести 0. входные данные: ввести одно целое число n. (1< =n< =1000). далее ввести n чисел в диапазоне от -1000 до 1000. выходные данные: вывести порядковый номер последнего из тех его элементов ak, которые удовлетворяют двойному неравенству a1 < ak < an. если таких элементов нет, то вывести 0.

#include < iostream>   int main() {     // считываем.     int n;     std: : cin > > n;     int * a = new int[n];     int t;     int i = 0;     while (n - i){         if (std: : cin > > t){             a[i++] = t;         }     }         // находим и выводим.     n--;     int max = -1;     for (i = n-1; i > = 0; --i){         if (a[i] > *a & & a[i] < a[n]){             max = i;             break;         }     }     std: : cout < < max+1 < < std: : endl;     delete [] a;     std: : cin.get();     std: : cin.get();     return 0; }

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.