ПАСКАЛЬ Дан целочисленный массив из 10 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на одном из языков программирования алгоритм, который находит и выводит длину наибольшей по длине возрастающей последовательности подряд идущих элементов. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N = 10;
var
a: array [1..N] of integer;
i, l, lmax: integer;
begin
for i := 1 to N do
read(a[i]);
...
end.
2. Дан массив, содержащий 7 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, квадрат которых более чем в два раза превосходит значение предшествующего элемента. Например, для массива из 7 элементов, содержащего числа 2, 8, 10, 1, 9, 3, 5, программа должна выдать ответ 4 (условию соответствуют элементы со значениями 8, 10, 9, 5). Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.
const N = 7;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
read(a[i]);
...
end.
