1 или не один из вариантов (в случае если звёздочка имеет характеристику "жадность" т.е. не мы определяем сколько она символов занимает а целевая последовательность символов)
Объяснение:
??pri*.?*
Из всех вышеуказанных ближе всех 1 вариант т.к. он укладывается в схему выражения.
Два произвольных символа которые мы можем заменить на "na", затем константное выражение "pri" и потом звёздочка которую можем использовать как пустое множество, затем "." (точка), затем любой один символ - "q" и звёздочка которую мы также используем как пустое множество
P.S.
Не забывайте нажать " ", поставить оценку, и если ответ удовлетворил, то выберите его как "Лучший" :)
// PascalABC.NET 3.0, сборка 1076 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 элементов, квадрат которых больше квадрата первого
1 или не один из вариантов (в случае если звёздочка имеет характеристику "жадность" т.е. не мы определяем сколько она символов занимает а целевая последовательность символов)
Объяснение:
??pri*.?*
Из всех вышеуказанных ближе всех 1 вариант т.к. он укладывается в схему выражения.
Два произвольных символа которые мы можем заменить на "na", затем константное выражение "pri" и потом звёздочка которую можем использовать как пустое множество, затем "." (точка), затем любой один символ - "q" и звёздочка которую мы также используем как пустое множество
P.S.
Не забывайте нажать " ", поставить оценку, и если ответ удовлетворил, то выберите его как "Лучший" :)
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 элементов, квадрат которых больше квадрата первого