Найти и вывести слово наибольшей длины, а также его номер - Pascal ABC

Формулировка задачи:

Пользователь вводит с клавиатуры несколько слов (кол-во определите сами). Найти и вывести слово наибольшей длины, а также его номер

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

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ