// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('Количество элементов='); var b:=ArrRandomReal(n,-10,20); b.Println(', '); var mx:=b.Max; var c:=b.Where(x->x<>mx); c.Println(', ') end.
//PascalABC.Net 3.0, сборка 1064 var s,w:string; begin Write('Введите предложение: '); Readln(s); Write('Введите искомое слово: '); Readln(w); s:=' '+s+' '; if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение') else Writeln('Слово не входит в предложение') end.
Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение
Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
begin
var n:=ReadInteger('Количество элементов=');
var b:=ArrRandomReal(n,-10,20);
b.Println(', ');
var mx:=b.Max;
var c:=b.Where(x->x<>mx);
c.Println(', ')
end.
Тестовое решение:
Количество элементов= 13
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 19.5660732731065, 18.4909354934892, 9.13206894841607
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 18.4909354934892, 9.13206894841607