Найти и вывести слово наибольшей длины, а также его номер - 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.

Объяснение кода листинга программы

  1. В программе объявлены переменные: s, smax, i, n, max и ind.
  2. Программа запрашивает у пользователя количество слов (n) и затем запрашивает сами слова.
  3. Переменная max инициализируется значением 0.
  4. Затем происходит цикл for, который выполняется n раз.
  5. Внутри цикла считывается слово s и проверяется его длина. Если длина слова больше текущей максимальной длины, то обновляется значение переменных max, smax и ind.
  6. После окончания цикла выводится на экран самое длинное слово smax и его номер ind.

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы