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;
}