Найти и вывести слово наибольшей длины, а также его номер - Pascal ABC
Формулировка задачи:
Пользователь вводит с клавиатуры несколько слов (кол-во определите сами). Найти и вывести слово наибольшей длины, а также его номер
Решение задачи: «Найти и вывести слово наибольшей длины, а также его номер»
textual
Листинг программы
program qivieri; var s, smax: string; i, n, max, ind: integer; begin writeln('Введите кол-во слов'); readln(n); max := 0; writeln('Введите слова'); for i := 1 to n do begin readln(s); if length(s) > max then begin max := length(s); smax := s; ind := i; end; end; writeln('Самое длинное слово "', smax, '" , под номером ', ind); end.
Объяснение кода листинга программы
- В программе объявлены переменные: s, smax, i, n, max и ind.
- Программа запрашивает у пользователя количество слов (n) и затем запрашивает сами слова.
- Переменная max инициализируется значением 0.
- Затем происходит цикл for, который выполняется n раз.
- Внутри цикла считывается слово s и проверяется его длина. Если длина слова больше текущей максимальной длины, то обновляется значение переменных max, smax и ind.
- После окончания цикла выводится на экран самое длинное слово smax и его номер ind.