Сдать решение задачи 2-Последовательность
Полный : 1
Ограничение времени: 1 с
Ограничение реального времени: 5 с
Ограничение памяти: 256M
Последовательность
Составьте программу, которая принимает на вход в первой строке натуральное число N (1 < N < 32768), а из второй строки считывает последовательность из N целых чисел Ai (-32769 < Ai < 32768), разделённых пробелами. Как результат своей работы программа выводит количество элементов последовательности Ai таких, что они положительны и их номер i таков, что min(H, L) ≤ i ≤ max(H, L), где H -- номер максимального элемента последовательности, расположенного ближе всего к её концу, L -- номер минимального элемента последовательности, расположенного ближе всего к её началу.
Формат входных данных
В первой строке содержится целое положительное число N — длина последовательности (1 < N < 32768).
Во второй строке содержится последовательность, состоящая из N целых чисел Ai (-32769 < Ai < 32768), разделённых пробелами.
Формат результата
В первой и единственной строке выводится неотрицательное целое число, равное искомому количеству элементов последовательности (это число от 0 до 32767).
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
begin
var n:=ReadInteger('Число элементов массива=');
var a:=ArrRandom(n,-25,25);
Write('Исходный массив: '); a.Println;
var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
if k>0 then Writeln
('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
else Writeln
('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.
Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого