Так как написана программа, в лучшем случае будет найдено только одно слово, должны быть вложенные циклы.
Решение (немного исправленное) в прикрепленном файле.
Ввод - вывод программы:
vvedite text:
<span>it's a text for check programm abcdefgh hgfe pqrstu srqp.
</span>word = for
<span>word = abcdefgh
</span><span>word = hgfe
</span><span>word = pqrstu
</span><span>word = srqp
</span><span>
</span>
Трогать разъемы соединительных кабелей и проводов
прикасаться к питающим проводам и устройствам заземления
прикасаться к экрану и к тыльной стороне монитора, клавиатуры
работать в верхней одежде и влажными руками
при появлении запаха гари необходимо немедленно прекратить работу, выключить
аппаратуру и сообщить об этом преподавателю
необходимо следить за исправностью аппаратуры и немедленно прекращать работу при
появлении необычного звука или самопроизвольного отключения аппаратуры
Отв: 135000 мегабайт
так как в 1 часе 3600 сек.
а в 1 сек. 25 кадров
Наиболее удобной формой для представления большого количества однотипной информации является ТАБЛИЦА
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
