Алг нач цел число элементов, позиция, максимум, минимум число элементов:=10 целтаб a[1:число элементов] максимум:=-10000 минимум:=10000 нц для позиция от 1 до число элементов ввод a[позиция] если максимум<a[позиция] то максимум:=a[позиция] иначе если минимум>a[позиция] то минимум:=a[позиция] все все кц вывод "максимум=",максимум,", минимум=",минимум кон
Тестовое решение: >> 15:26:57 - Новая программа* - Выполнение начато 5 15 4 8 -2 7 2 9 11 10 максимум=15, минимум=-2 >> 15:27:49 - Новая программа* - Выполнение завершено
//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.
Тестовые решения: Введите предложение: А роза упала на лапу Азора Введите искомое слово: роза Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму Введите искомое слово: кино Слово не входит в предложение
Введите предложение: Интересное было кино или так себе? Введите искомое слово: кино Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
2. 2010
3. 2011
4.2012
5.3999