Держи. Программа написана для PascaABC.net. Что бы изменить количество массива - измени значение в графе const в самом верху программы. Первый отрезок программы (до пустой строчки) - заполнение и вывод массива из случайный значений из промежутка [a,b]. Вторая часть программы(в серединке) нахождение таких элементов массива, которые удовлетворяют условиям задачи - т.к. локальный минимум - в занос индексов этих элементов в новый массив d. Последняя строчка - вывод ответ, если массив с индексами пустой - напишет "не найдено" , а если такие элементы есть, то выведет все индексы на экран.
begin Writeln('введите исходное предложение: '); Readln(s); delete(s, pos(' ', s), 1); write('Последняя буква второго слова='); if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1]) else write(s[length(s)]); readln(s); end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
Что бы изменить количество массива - измени значение в графе const в самом верху программы. Первый отрезок программы (до пустой строчки) - заполнение и вывод массива из случайный значений из промежутка [a,b].
Вторая часть программы(в серединке) нахождение таких элементов массива, которые удовлетворяют условиям задачи - т.к. локальный минимум - в занос индексов этих элементов в новый массив d.
Последняя строчка - вывод ответ, если массив с индексами пустой - напишет "не найдено" , а если такие элементы есть, то выведет все индексы на экран.
var
S: String;
begin
Writeln('введите исходное предложение: ');
Readln(s);
delete(s, pos(' ', s), 1);
write('Последняя буква второго слова=');
if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
else write(s[length(s)]);
readln(s);
end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.