Дан целочисленный массив из n элементов. Элементы массива могут принимать натуральные значения от 1 до 10000 включительно (это проверять не нужно, во всех остальных задачах тоже. Так дано по условию). Все числа в массиве различные. Найти количество чисел, которые располагаются между числами 15 и 45 (не включая эти числа), а затем заменить все двузначные элементы на это количество. В качестве результата необходимо вывести изменённый массив в строку. Гарантируется, что элементы 15 и 45 в массиве есть.
Например, для исходного массива из шести элементов:
15 6 11 18 9 45
программа должна вывести следующий массив
4 6 4 4 9 4
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 элементов, квадрат которых больше квадрата первого
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии