457) Дан массив, содержащий 50 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, значение которых более чем в три раза превосходит значение предшествующего элемента.

Например, для массива из 6 элементов, содержащего числа 2, 5, 20, 15, 150, 100, программа должна выдать ответ 2 (элемент со значением 20 и со значением 150). Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно.

# допускается также  
# использовать две 
# целочисленные переменные j и k
a = [ ] 
n = 50
for i in range(0, n): 
   a.append(int(input()))
...

const     
N = 50; 
var     
a: array [1..N] of integer;    
i, j, k: integer;
begin  
   for i := 1 to N do    
      readln(a[i]);   
   ...  
end.

#include <iostream> 
using namespace std;
const int N = 50;
int main() {    
   int a[N];  
   int i, j, k;  
   for (i = 0; i < N; i++)   
      cin >>  a[i];  
   ...   
   return 0; 
}